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EXECUTIVE  SUMMARY 


The  Computerized  Application  of  Standards  Project  successfully  proved 
that  MOST  developed  standards  could  be  applied  by  an  existing  computer-aided 
design  system  to  eliminate  manual  application  of  standards.  The  Computer 
Center,  Industrial  Engineering,  and  Production  Engineering  worked  together  to 
develop  a  computer  program  to  apply  standards  to  the  pipe  detail  work  packages 
for  the  bending,  fabricating,  welding,  and  machining  operations  in  the  pipe 
shops . 


The  implementation  of  this  program  into  the  computer-aided  pipe  detail 
design  systems  has  resulted  in  improved  accuracy  and  consistency  of  standards 
applications.  Other  benefits  resulting  from  computerized  application  of 
standards  include:  increased  manhour  productivity,  standardization  of  pipe 

detail  part  terms,  capability  to  apply  detailed  standards,  and  the  capability 
for  computerized  transfer  to  the  Production  Scheduling  and  Control  System. 

The  development  of  the  program  took  approximately  eight  months  and 
involved  extensive  communications  between  the  computer  programmer  and  the 
Production  Engineering  pipe  shop  planners.  This  level  of  effort  was  based  on 
the  existance  of  a  computer-aided  pipe  design  system  Generating  pipe  detail 
work  packages  and  a  well-established  manual  standards  application  system. 
Although  the  transferability  of  the  program  software  may  be  minimal,  the 
approach  and  techniques  used  to  develop  the  program  should  be  highly 


transferable . 
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INTRODUCTION 


The  Computerized  Application  of  Standards  Project  provided  for  the 
elimination  of  manual  application  of  standards  by  integrating  standards  that 
were  previously  developed  using  Manual  MOST  into  existing  Newport  News 
Shipbuilding  production  computer  systems.  The  pipe  shop  Work  Management 
Manuals  were  developed  between  1978  and  1979  using  10X  Manual  MOST.  Since 
1979,  the  Work  Management  Manuals,  along  with  information  obtained  from 
existing  production  computer  systems,  have  been  utilized  by  Production 
Engineering  personnel  to  manually  apply  standards  to  pipe  shop  work  packages 
for  bending,  fabrication,  welding  and  machining  operations.  The  work  packages 
are  part  of  a  production  control  system  used  to  schedule  and  track  the  progress 
of  pipe  details  through  each  shop  work  center. 

The  pipe  shops  at  Newport  News  Shipbuilding  are  divided  into  three 
areas;  Steel  Pipe  Shop,  Copper  Pipe  Shop,  and  Nuclear  Pipe  Shop.  This  project 
provided  for  computerized  application  of  standards  to  work  packages  for  all 
three  shops.  Since  the  application-procedure  is  identical  for  all  three  shops, 
only  the  Steel  Pipe  Shop  is  explained  in  detail  in  this  report.  This  will 
simplify  the  report  by  avoiding  repetitious  documentation. 

The  pipe  shops  were  selected  for  this  project  because  of  the  excellent 
computer  information  that  was  available;  the  costs  to  apply  standards  to  the 
pipe  details  being  generzted;  and  a  well  established  manual  application  system 
was  already  in  existance. 


PROJECT  SUMMARY 


Existing  System 

The  existing  manual  standards  application  program  for  the  pipe  shops 
involved  interfaces  between  the  Newport  News  Shipbuilding  computer  system, 
production  engineering  shop  planners,  and  shop  foremen.  The  standards  were 
applied  to  pipe  details  by  Production  Engineering  and  then  organized  into  work 
packages  for  use  by  the  shop  foremen. 


The  pipe  details  were  created  from  piping  design  drawings  by  a 
computer-aided  pipe  detail  manufacturing  system.  Two  sheets  were  generated  for 
each  detail:  a  pipe  detail  manufacturing  record  and  a  working  drawing 


of  the  pipe  detail  Fig.  2).*  The  pipe  detail  manufacturing  record  provides  the 
following  data: 


•  how  the  pipe  is  bent :  number  of  bends 

bend  radius 
bend  angle 

•  layout  of  pipe  detail:  distance  between  center 

distance  been  tangents 
X,  Y,  Z  coordinates 

•  how  the  pipe  is  fabricated 

•  end  preparation  reguired  for  welding 

•  size  and  description  of  pipe  and  fittings 

•  material  type  and  part  number  of  pipe  and  fittings 

•  miscellaneous  fabrication  notes 


The  working  drawing  provides  dimensioned  views  and  an  isometric  sketch 
of  the  pipe  detail. 


* 


There  is  no  Figure  1. 
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After  the  pipe  details  were  generated,  they  were  sent  from  the 


computer  center  to  the  production  engineering  shop  planners.  The  planners 
manually  applied  standards  for  bending,  fabrication,  welding  and  machining  to 
the  pipe  details.  These  standards  were  developed  using  10X  MOST  and  were 

The  planners  used 


organized  on  a  pick  sheet  for  the  planner's  use 


Fig .  3 


the  pick  sheets,  along  with  the  information  generated  on  the  pipe  detail 
manufacturing  records,  to  set  the  standards  for  each  pipe  detail.  Work  package 
folders  were  then  established  for  each  pipe  detail.  Each  work  package  folder 
included:  the  pipe  detail  manufacturing  record,  the  working  drawing  of  the 

pipe  detail,  the  standard  hours  for  bending,  fabrication,  welding  and  machining 
operations,  the  parts  list,  and  the  material  schedule.  The  material  and 
scheduling  information  from  the  pipe  "detail  manufacturing  records  and  the, 
standard  times  for  each  work  center  in  each  pipe  detail  are  transferred  to  the 
production  scheduling  and  control  system  by  the  planners.  The  work  package 
folders  were  sent  from  the  planners  to  the  shop  foremen  who  assigned  them  to 
the  mechanic  as  the  work  arrived  at  the  shop. 


This  project  eliminated,  the  manual  application  of  standards  to  the 
pipe  detail.  The  standards  for  each  detail  are  now  generated  by  a  computer 
program  that  interacts  with  the  computer-aided  pipe  detail  manufacturing 
system.  However,  the  basic  flow  of  the  work  packages  remained  unchanged,  since 
the  planners  are  still  required  to  develop  the  work  package  folders. 
Application  of  the  work  packages  and  the  use  of  the  standards  by  the  Production 
Central  System  are  not  within  the  scope  of  this  project  and  therefore  are  not 


addressed . 


Bending 


WELDING 


Data  Development 


Before  a  computerized  system  to  apply  the  standards  could  be 
developed,  the  input  data  had  to  be  standardized.  The  information  on  the  pipe 
detail  manufacturing  record  is  referenced  from  a  catalog  of  Pipe  detail  parts. 
This  catalog  originally  contained  the  part  numbers,  material  types,  and 
descriptions  of  the  pipe  detail  parts.  For  the  computer  program  to  apply  the 
correct  standards  to  a  pipe  detail,  it  had  to  be  able  to  use  this  information 
to  identify  the  parts.  However,  the  information  contained  in  the  parts 
description  was  not  standardized;  different  abbreviations  were  used  for  the 
same  part,  the  placement  of  the  part  name  varied  in  the  description  field,  many 
parts  names  were  similar  (reducer,  reducing  flange,  reducing  elbow)  therefore 
not  easily  identifiable,  etc.  Without  standardization  of  the  description,  it 
was  not  possible  for  the  computer  to  accurately  identify  the  parts.  To  provide 
for  standardization  of  the  catalog's  part  descriptions,  the  size  of  the  catalog 
record  was  iacreased  to  include  a  type  code. 


The  type  code  consists  of  three  letters  used  to  identify  the  piece 
type,  weld  joint  type,  and  additional  description  of  the  piece 


Fig.  4 ) .  The 


type  code  allows  the  part  to  be  easily  identified  regardless  of  how  it  is 
abbreviated  within  the  description  on  the  pipe  detail  manufacturing  record. 


Type  codes  were  identified  for  all  parts  already  in  the  catalog  and  are 
assigned  as-new  parts  are  entered  into  the  catalog. 


EXPLANATION  of  TYPE  CO 


THppp  ARF  3  T,FTTFRS  TO  THF  TYPF  OODF  THE  FIRST  LETTER  IDENTIFIES  THE  TYPE  OF 
AND  IS  iLil!B™iCAL2?  THE  SECOND  LETTER  GIVES  THE  WELD 

SINCE  THE  WELD  TYPES  DO  NOT  SPECIFICALLY  MODIFY  ANY  ONE  PIECE  TYPE,  THEY  ARE 
LISTED  AS  A  GROUP  FIRST.  THE  THIRD  LETTER  IS  USED  TO  DESCRIBE  THE  PIECE. 

SINCE  REDUCING  AND  UNION  ARE  GENERAL  PURPOSE  MODIFIERS,  THEY  ARE  LISTED  FIRST. 
THE  REMAINING  MODIFIERS  ARE  LISTED  ON  THE  LINE  OF  THE  PIECE  THEY  MOST 
FREQUENTLY  DESCRIBE. 


PIECE  TYPE  CODES 


1ST  LETTER 


2ND  LETTER 


3RD  LETTER 


PJLEC£  1123. 


JOINT  TYPE 


A  “  ADAPTOR 
B  “  BOSS 
C  “  COUPLING 


E  “  ELBOW 


B  ‘  BUTT  WELD 
F  “  FLANGED 
S  “  SOCKETT  WELD 
T  “  THREADED 
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M  “ MIXED 
N  “  N/A 


F  " FLANGE 
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P  “PIPE 
R  “ REDUCER 

S  “  SLEEVE 
I  'TEE 
U  “  UNION 

V  “  VALUE 


“  WELDOLET ,  SOCKLET, 
BRAZOLET ,  . . 

X  “CROSS 
Y  " LATERAL 
Z  “ TRAPS 


M  '  MISC 


MODIFIER 

R  “REDUCING 
U  “  UNIOIN 


9  “  90  DEG  RADIO 
4  “45  DEG  RADIO 
D  “RAISED  FACE 
F  “ FLATFACE 
0  “ SLIP  UN 
T  “FOUNDATION 


I  “CUNCENTRIC 
E  “  ECCENTRIC 


M  "  MALE 
W  “ FEMALE 
A  “ANGLE 
B  “ BALL 
C  “ CHECK 
G  “ GATE 
i  “ELCO. 


P  '  P  TRAP 
S  “  S  TRAP 
N  “  RUNNING  TRA' 
1  “  1  NODE 
Z  “  Z  NODE 
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TYPE  . 


Fig.  4 


Program  Development 


The  computer  program  that  applies  the  standards  to  the  pipe  details  is 
a  part  of  the  computer-aided  pipe  detail  manufacturing  system.  The  flowchart 
Mand  program  for  the  Steel  Pipe  Shop  are  included  in  the  Appendix.  Data  in  the 
program  has  been  modified  to  exclude  company  propriatory  information.  The 
program  is  divided  into  four  major  sections  (bending,  fabrication,  welding, 
machining),  which  are  part  of  the  following  format: 

•  a  pipe  detail  is  selected  from  the  computer-aided  pipe  detail 
manufacturing  program.  (A  detail  may  be  a  single  piece  of  pipe  or  may 
include  a  main  pipe  piece  with  up  to  25  fittings.) 

•  all  data  needed  to  apply  pipe  standards  is  collected  from  the  pipe  detail 
manufacturing  system 

•  the  bending  standard  times  are  extracted  from  the  standards  table 

•  the  fabrication  standard  times  are  extracted  from  the  standards  table 

•  the  welding  standard  times  are  extracted  from  the  standards  table 

•  the  machining  standard  times  are  extracted  from  the  standards  table 

•  the  standard  time  values  for  the  pipe  detail  are  printed 


Bending  Values  Development 
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Fig.  5 


Data  from  the  pipe  detail  manufacturing  system  is  used  to  determine 
number  of  bends  and  the  main  pipe  piece  size.  The  standard  times  for 

Bending  are  established  in  a  matrix  (Fig.  6)  which  is  identical  to  the  matrix 


on  the  planner's  pick  sheet.  The  outside  diameter  of  the  main  pipe  piece 
determines  which  row  is  applicable  and  the  number  of  bends  required  determines 
the  applicable  column.  The  program  accesses  the  standard  time  and  records  the 


total  bending  value  for  the  detail. 


Fabrication  Values  Development 


The  input  data  is  reviewed  and  the  fittings  are  established  in  an 
array.  Fittings  that  are  designated  as  having  no  value  (e.g.  0-rings,  backing 
rings,  etc.)  are  flagged  so  they  will  be  excluded  from  consideration  in  the 


remainder  of  the  program.  These  excluded  fittings  will  be  specific  to  each 
shipyard  depending  on  the  application  of  their  work  packages.  The  number  of 
reaaining  fittings  is  then  determined  by  subtracting  the  number  of  excluded 
fittings  from  the  total  number  of  fittings. 


After  the  fitting  array  is  set  up,  another  array  containing  the 
information  pertaining  to  the  joints  (including  end  preparation)  is 
established.  A  direct  correspondence  exists  between  these  arrays.  The  array 
of  joint  sizes  allows  the  program  to  correctly  handle  a  number  of  special 
situations.  These  situations  may  exist  for  reducing  fittings,  which  can  be 
different  sizes  on  each  end,  and  for  bosses,  branches,  or  weld-o-lets  which  may 
differ  in  size  from  the  piece  to  which  they  are  attached.  Joints  that  are 
screwed  or  threaded  are  designated  as  having  no  value  and  are  flagged  so  they 
will  be  excluded  from  consideration  in  the  program.  A  loop  is  made  through  the 
array  to  identify  excluded  joints,  joints  on  the  main  pipe  piece,  and  fitting 
joints . 


Fig.  8 


The  next  step  is  to  loop  through  fitting  array  to  check  for  type 


codes.  Using  the  descriptions  of  the  fittings  in  the  array  the  type  codes  are 
extracted  from  the  catalog  of  pipe  detail  parts.  If  the  fitting  type  code  is 
not  in  the  catalog,  the  fitting  description  is  scanned  and  the  type  code 
created. 


Another  loop  is  made  through  the  array  of  fittings  to  determine  how 
the  standards  for  joints  at  special  fittings  will  be  applied.  Each  joint  is 
divided  into  two  sides,  based  on  fitting  descriptions  and  size  information 
generated  by  computer-aided  pipe  detail  manufacturing  systems.  Each  side  of 
the  joint  is  analyzed  to  determine  which  side  will  be  used  to  determine  the 
standard. 


In  a  separate  routine,  the  notes  from  the  pipe  detail  manufacturing 
record  are  scanned  to  determine  if  the  detail  has  a  "Template  From  Ship"  note. 
This  note  requires  that  a  template  be  taken  from  the  ship  in  order  to  construct 
the  pipe  detail.  This  operation  requires  that  an  additional  value  based  on  the 
outside  diameter  of  the  main  pipe  piece  be  added  to  the  fabrication  total. 


Fig.  9 


The  fitting  outside  diameter,  description,  end  preparation,  and  type 


code  are  used  to  determine  the  fabrication  values  from  the  matrix  'Fig.  10). 


The  outside  diameter  of  the  fitting  determines  which  row  of  the  matrix  is 
applicable  for  an  operation.  Each  column  is  checked  until  the  correct  fitting 
type  is  found.  All  the  fittings  for  the  detail  are  looped  through  and  the 
standard  time  for  each  fabrication-activity  is  added  to  the  overall  detail 
fabrication  total. 
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Fig.  10 


The  pipe  shop  especif ications  reguire  that  brazing  be  included  in  the 
fabrication  step.  The  end  preparation  reguired  for  each  fitting  is  checked  to 

determine  if  brazir.&  is  required.  If  the  fitting  is  brazed,  the  joint  £iag  Is 

removed  so  the  joint  will  not  be  considered  in  the  welding  section  of  the 
program.  The  brazing  standard  times  are  added  to  the  fabrication  total  for 


each  detail. 


Welding  Values  Development 


The  welding  values  are  determined  joint  by  joint,  they  are  not  looped 

i  .  n  r;  ,  ■  ,  .  The  outside  diameter  of  the 

through  an  array  like  the  fabrication  values. 

piece  at  the  joint  determines  which  row  °f  bhe  matrix  ( -  ig • — 13_  is  applicable 
for  an  operation.  Before  the  welding  values  are  determined,  flags  are  set  to 


keep  track  of  the  first  weld  of  each  weld  type. 


This  is  necessary  because  the 


first  joint  requires  preparation  and  set-up  time. 


Fig.  11 


Fig.  12 


The  end  preparation  requirements  are  checked  to  make  sure  that  the 
fitting  requires  welding  and  to  determine  the  joint  type.  The  type  of  fitting 


is  checked  to  determine  the  column  section  of  the  matrix 


Fig.  13) .  If  the 


fitting  is  a  boss  or  flange  the  standard  time  from  the  matrix  is  selected 
according  to  size,  regardless  of  the  joint  type.  Other  fittings  are  selected 
according  to  the  joint  type  and  material  type.  ^he  standard  time  for  each 
joint  is  determined  and  the  welding  value  t°r  the  detail  is  incremented  joint 
by  joint. 
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Machining  Values  Development 


MACHINING 
PER  0I0E  END 
1  Man  Operation 


Nos.  Straight  Combination 

Pipe  Bevel  J  Bevel  & 

Size  Operation  Counter  Bore 


11/2"  -  1" 

1 

—  1 

1  1/2“  -  4" 

1 

1 

5"  -  8” 

1 

1  1 

10”  -  14" 

1 
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1  1 

DRILL  HOLES:  1  MKRS/HOLE 


Fig.  15 


Fig.  14 


The  machining  values  are  based  on  the  type  of  weldinr  involved  srV  t 

end  preparation  required  for  a  piece.  Since  cu —lining  u_x.- - »  -- -  • 

welding  it  is  included  within  the  welding  section  of  the  program  but  is 
considered  a  spearate  operation  for  standards  application. 


The  machining  required  for  each  joint  is  based  on  the  fitting  type  and 
the  welding  involved.  If  the  fitting  is  a  flange,  it  must  be  determined 
whether  a  butt  weld  or  a  socket  weld  is  required.  If  a  socket  weld  is  required 
for  a  flange  end  prep,  no  machining  value  is  applied.  If  a  butt  weld  is 
required  for  a  flange  end  prep,  the  machining  value  is  applied.  If  the  fitting 
is  a  boss,  the  drilling  value  is  added  to  the  machining  value  directly  after 
the  welding  value  for  bosses  is  added  to  the  welding  total. 


The  machining  values  for  the  other  joints  are  based  on  the  type  of 
welding  required.  If  a  socket  weld  is  required,  no  machining  values  are 
applied.  If  a  butt  weld  is  required,  the  machining  value  is  for  the  time  spent 
to  bevel  the  end  of  the  pipe  prior  to  welding.  Therefore,  a  machining  value  is 
not  applied  if  the  joint  is  a  fitting  to  fitting  joint. 


The  outside  diameter  of  the-piece  determines  which  row  of  the  matrix 


Fig.  15  is  applicable  for  an  operation.  The  column  is  determined  by  the  type 


of  machining  operation  required  for  particualr  weld  types.  According  to 
Newport  News  Shipbuilding  specifications,  the  Combination  J  Bevel  &  Counter 
Bore  is  used  only  on  one  particular  weld  type,  all  other  operations  use 


Straight  Bevels.  The  machining  values  for  each  operation  are  determined  and 
added  to  the  machining  total. 


Pipe  Details  Without  Fittings 


Fig.  16 


Before  the  value  totals  are  printed,  the  pipe  details  without  fittings 
are  checked  for  fabrication  requirements.  If  a  "Template  From  Ship"  is 
required,  the  value  for  additional  set-up  time  is  designated  as  part  of  the 
fabrication  value. 

Next,  the  end  preparation-requirements  are  checked  to  determine  if  a 
templated  end  is  left  on  either  end  of  the  main  pipe  piece.  This  templated  end 
consists  of  addditional  length  at  the  end  of  the  piece  of  pipe  that  can  be  cut 
to  fit  the  work  already  installed  on  the  ship.  If  there  is  a  templated  end, 
then  that  end  of  the  pipe  is  not  prepared  and  a  machining  value  is  not  applied. 
If  there  is  not  a  templated  end,  then  either  one  or  both  ends  of  the  piece  may 
require  butt  weld  end  preparation.  If  the  end  preparation  is  required,  flags 
are  set  so  that  machining  values  will  be  applied. 

If  the  pipe  is  bent,  the  end  preparations  are  checked.  If  butt  weld 
end  preps  were  not  required  and  a  specified  cut  length  on  a  non  templated  end 
was  not  specified  then  the  program  advances  to  print  out  the  standard  values. 
If  butt  weld  end  preps  were  required  then  the  set-up  value  is  added  to  the 
fabrication  total  and  the  machining  total.  If  the  pipe  is  not  bent,  the  set-up 
value  is  added  to  the  fabrication  total  and  any  required  machining  values  are 
added  to  the  machining  total. 
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Fig.  17 


After  the  bending,  fabrication,  welding  and  machining  values  are 
determined,  the  total  value  for  each  operation  on  a  detail  is  written  to  a 
file.  This  record  also  includes  administrative  data,  drawing  numbers,  and  the 
pipe  detail  identifier.  A  utility  sort  function  is  performed  to  sort  the  file 
by  detail  identifier.  A  print  out  of  the  details,  with  the  standard  time 


values,  is  provided  to  the  planner  when  developing  the  work  packages  (Fig.  18) 
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Testing 


After  the  development  of  the  standards  application  programs  was 
completed,  the  programs  were  tested  for  completeness  and  accuracy.  Testing  was 
accomplished  by  comparing  the  standard  time  results  from  the  program  with  those 
applied  manually  by  the  planners.  A  cross  section  of  drawings  were  tested  in 
this  manner  until  the  results  were  consistently  correct. 

When  the  computer  applied  standards  were  compared  to  the  manually 
applied  standards,  the  computer  application  proved  more  accurate  in  many  cases 
than  manual  application.  The  program  also  identifies  input  data  errors  and 

will  not  attempt  to  calculate  the  standards  with  incorrect  data.  A  data  error 
message  is  printed  with  the  pipe  detail  so  data  corrections  can  be  made. 

After  the  testing  was  complete,  the  program  was  put  into  production 
use.  The  application  of  the  program  and  the  interfaces  with  other  computer 
programs  were  closely  monitored  for  any  adverse  effects.  The  planners  have 
been  told  to  notify  the  computer  programmer  if  any  unusual  results  are 


received. 


BENEFITS 


This  project  successfully  proved  that  MOST  developed  standards  could 
be  applied  by  an  existing  computer-aided  design  system  to  eliminate  the  manual 
application  of  standards.  Computerized  application  of  standards  has  resulted 
in  improved: 

•  accuracy 

•  consistency 

•productivity 

Preliminary  results  indicate  that  the  costs  for  computerized  application  are 
approximately  equal  to  the  costs  for  manual  application.  There  are  several 
reasons  why  both  application  processes  appear  to  result  in  equal  costs. 

•  The  standards  application  pick  sheets  were  designed  for  ease  of  manual 
application."  The  detail  of  the  standards  were  compromised  so  they  could 
be  categorized  for  easier  application. 

•  The  planners  are  organized  into  specialized  groups  according  to  the 
standards  application  pick  sheets.  Therefore,  over  a  period  of  time, 
each  planner  becomes  highly  skilled  and  proficient  in  standards 
application  within  his  areas. 

•  The  computerized  application  costs  are  temporarily  high  since  this 
program  was  ritten  to  be  combatable  with  a  new  computer  system  and  not 
most  efficient  under  the  existing  system.  A  system  changeover  is 
occuring  which  will  reduce  costs. 


Benefits  resulting  from  the  computerized  application  of  standards  include: 

•  Increased  manhour  productivity 

The  manual  application  of  standards  has  beta  eliminated  resulting  in 
edditional  time  for  the  planners  other  work.  Computer  costs  do  not 
directly  correspond  to  manhour  costs. 

Improved  accuracy  and  consistency 

The  computer  is  not  prone  to  fatique  and  mistakes  present  in  manual 
application . 


•  Standardization  of  pipe  detail  part  terms 

The  capabilities  of  the  existing  computer-aided  pipe  detail  manufacturing 
system  is  expanded  by  being  able  to  accurately  identify  parts. 

•Capability  to  apply  detailed  standards 

The  standards  are  currently  used  as  targets  by  the  pipe  shops.  If  more 
detailed  standards  were  required,  the  matrices  on  the  application  pick 
sheets  would  be  expanded,  making  it  difficult  for  manual  application. 

•Capability  for  computerized  transfer  to  the  Production  Scheduling  and 
Control  System 


CONCLUSIONS 


This  project  successfully  proved  that  MOST  developed  standards  could 
be  applied  by  an  existing  computer-aided  design  system  to  eliminate  manual 
application  of  standards.  Computerized  application  of  standards  proved 
superior  to  manual  application  and  particularly  beneficial  if  concerned  with 
accuracy,  consistency,  and  application  of  detailed  standards. 

The  development  and  implementation  of  the  program  was  also  beneficial 
for  Newport  News  Shipbuilding  since  it  forced  the  standardization  and  upgrading 
of  input  data  and  other  programs  within  the  computer-aided  design  system. 

The  transferability  of  this  program  depends  on  the  computer-aided 
design  systems  and  standards  application  processes  in  use.  Due  to  the 
company-oriented  nature  of  these  systems  and  processes,  the  transferability  of 
the  actual  program  software  is  probably  minimal.  However,  the  approach  and 

technigues  used  to  develop  this  program  should  be  highly  transferable.  This 
information  should  reduce  the  time  and  effort  reguired  to  develop  the  program. 


APPENDIX 


/  ANY  \ 
TIMED  FITTING 


•  LOOP  THROUGH  THE  ARRAY  OF  FITTINGS  TO  CHECK  TYPE  CODES 

-  Make  sure  every  timed  fitting  has  a  type  code.  If  a 
type  code  does  not  exist,  create  one  from  the 
fitting  description 

-  Check  fittings  with  "miscellaneous"  type  codes  to 
determine  if  they  are  welded  like  a  boss.  If  so,  set 
type  code  to  "boss". 

-  Extract  fitting  size  from  description 


•LOOP  THROUGH  THE  ARRAY  OF  FITTINGS  TO  CHECK  FOR  SPEEIAL 
FITTINGS 

-  Joints  may  be  divided  into  two  sides  but  only  one 

side  of  the  joint  will  be  timed.  Set  joint  to  be  timed 
to  SHOPJT  =  2  and  other  side  of  joint  to  SHOPJT  =  1 
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FITING 

7 

19 

20 

21 

25 

26 

27 

46  1  1 

. DATA. 

51 

52 

90 

91 

1  1  1 

112 

323  IPEC 

FITING 

7 

_ 9L) 

36 _ 

37 

42 

155 

4407  IPO! NT 

FITING 

7 

23  K 

.  DATA. 

2 

19 

20 

21 

25 

26 

27 

31 

36 

37 

42 

99 

147 

140 

155 

172 

174 

13  KOMPCH 

31 

36 

37 

42 

53 

57 

61 

65 

69 

73 

77 

8 1 

92 

1  16 

117 

118 

155 

31  MACHNO 

STDHRS 

1  1 

5  MAT 

FITING 

7 

3  NB 

FITING 

7 

4  NF 

fit!  ng 

7 

272  NFAB 

FITING 

7 

1  13  NO 

. DATA. 

121 

124 

171 

172 

1  NP 

FITING 

7 

4440  NPPPTS 

FITING 

7 

T  ^ 

2  NX 

FITING 

7 

0  OD 

FITING 

7 

32  0D1 0 

STDHRS 

1  1 

15 

147 

174 

12  0D2IPS 

j  65 

'  1  "  '  "'l"  ' 

0  ODFLAG 

GETOD 

14 

15 

23 

102  ODTOTL 

. DATA. 

17 

106 

129 

133 

141 

153 

156 

1  65 

170 

171 

4441  REV 

FITING 

7 

3  siUHRS 

1  1 

40  TO 

. DATA. 

12 

32 

38 

44 

54 

58 

62 

66 

70 

74 

78 

32 

93 

99 

0  TYPCOD 

STDHRS 

1  1 

_ 1-2 

99 

114V 

. DATA. 

‘ 

*  A 

7 

133 

156 

165 

170 

\ 


P 1 420  01  11-20-84  14.902 


SUB.  GETC0D(K)--STA25P I --EXTRACT 


141 

.  SI  50 

31 

35 

173 

.  S200 

36 

38 

203 

.  S250 

37 

41 

230 

.  S300 

42 

50 

.  S325 

53 

56 

300 

.  S400 

57 

60 

322 

.  S450 

61 

64 

344 

.  S460 

65 

60 

366 

.  S470 

69 

72 

410 

.  S480 

73 

76 

432 

.  S500 

77 

80 

454 

.  S550 

81 

04 

454 

.  S950 

51 

85 

461 

. SI  000 

39 

89 

507 

. SI  500 

90 

92 

95 

513 

. SI  800 

33 

45 

55 

59 

63 

516 

. SI  900 

86 

100 

516 

. S5000 

23 

105 

112 

. S5100 

FORMAT 

121 

122 

630 

. S5ZOO 

12/ 

1  uz 

640 

. S5300 

...  1.17  . 

136 

643 

. S5500 

116 

139 

654 

. S6000 

111 

130 

134  , 

137 

143 

660 

. S6200 

147 

153 

666 

. S7000 

118 

121 

182  .... 

715 

. S6000 

155 

163 

722 

. S9000 

157 

169 

746 

. S9500 

1  49 

176 

0 

. S9876 

FORMAT 

177 

EDIT  DATE  06-29-83  <  FT2.1U1  > 

ELAPSED  TIME  (SEC)  .66  LINES/MINUTE  16268 

THERE  WERE  NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
32K  WORDS  WERE  USED  FOR  THIS  COMPILATION 


CODE  FROM  THE  DESCRIPTION  LABEL  GETCOD  PAGE 


>1420  01  11-20-84  14.903  SUBROUTINE  0D2 I PS( OD,  I  PS) STA25PI- 


500000 

1 

C 

SUBROUTINE  0D2!PS(0D,  IPS) - STA25P 1  ■ 

500007 

2 

SUBROUTINE  OD2IPS(OD. IPS) 

100007 

3 

C 

500007 

4 

REAL 

1  PS, ABSVAL 

',  OD,  OD  1  PS(  2,  25) 

)00007 

5 

C 

)00007 

6 

DATA 

CD  I  PS/ 

500007 

7 

c 

OD 

IPS 

500007 

8 

& 

0.  675, 

0. 375, 

500007 

9 

& 

0. 840, 

0.  500, 

500007 

10 

1.050. 

0. 750. 

100007 

1  1 

& 

1.125, 

1 . 000, 

500007 

12 

& 

1.315, 

1 . 000, 

500007 

13 

0 

1 . 375, 

1 . 250, 

500007 

14 

0 

1 . 625. 

1 . 500. 

500007 

15 

& 

1 . 660, 

1 . 250, 

500007 

16 

& 

1 . 900, 

1 . 500, 

500007 

17 

0 

2.  125, 

2.000, 

500007 

18 

8 

2. 375. 

2. 000. 

500007 

19 

& 

2. 625, 

2.500, 

500007 

20 

& 

2. 875, 

2. 500, 

500007 

21 

& 

3. 125, 

3.  000, 

500007 

22 

8 

3. 500. 

3. 000, 

500007 

23 

& 

3. 625, 

3. 500, 

500007 

24 

& 

4.  000, 

3. ?00, 

500007 

25 

•a 

4. 500, 

4. 000, 

500007 

26 

a 

5. 563. 

5. 000. 

500007 

27 

a 

6. 625, 

6. 000, 

500007 

28 

a 

7. 625, 

7.  000, 

500007 

29 

a 

0.625, 

8.  000, 

500007 

30 

a 

9.  625. 

9. 000. 

500007 

31 

a 

10.  750, 

10. 000, 

500007 

32 

a 

12.  750, 

12. 000/ 

500007 

33 

c 

5QOQ07 

34 

c 

500007 

35 

DO  222  1=1.25 

50001 1 

36 

1  1=1 

500012 

37 

ABSVAL=ABS(ODIPS< 1,11 ) -OD) 

500022 

_ 36 

c 

500022 

39 

c 

500023 

40 

IF  ( ABSVAL  .LT. 

0.  05)  GO  TO  444 

500027 

41 

222  CONTINUE 

500027 

42 

c 

500027 

43 

c 

THE  OD  IS 

NOT  IN  THE  TABLE.  USE 

500033 

44 

1 PS=OD 

500035 

45 

RETURN 

500035 

46 

c 

500040 

47 

444  CONTINUE 

500040 

48 

1  PS=  OD  1  PS(  2,  1  |) 

500045 

49 

RETURN 

500046 

50 

END 

USE  OD  TO  FIND  IPS 


LABEL  0D2IPS  PAGE 


1 


1420  Ol  11-20-84  14.903  SUBROUTINE  002 1 PS(  OD,  I  PS) STA25PI USE  OD  TO  FIND  IPS  LABEL  0D2IPS  PAGE  2 

TRANSFERS. . . . 

FROM- LTNE<r T 0  'll i NE#  FROM  LINE#  TO  LINES  FROM  LINE#  TO  LINE#  FROM  LINE#  TO  LINE#  FROM  LINE#  TO  LINE# 

49  RETURN  46  RETURN  40  47 


1420  01  1 1 -20- 84  14.903  SUBROUTINE  0D2 1 PS(  OD,  I  PS) - STA25PI - USE  OD  TO  FIND  IPS 


LABEL  0D2IPS  PAGE 


3 


TRANSFERS. . . . 

TO  UNEtT “FROM  LTn'E#  T6"  L'l"NEtt  " FROM  UNE»  TO  L I NE«  >ROMTTNE#  TO  LINE#" FROM  LINE#  TO  l1nE#~F~R0M  LINE# 
47  40  RETURN  46  RETURN  49 


1420  01  1  1-20-84 


1 4. 003 


SUBROUTINE  OD21PS(OD, IPS) - STA25PI 

1 

OFFSET  SYMBOLIC  GLOBAL  REFERENCES  BY  ALTER  NUMBER 


1  .  DATA. 


7  .  E.  L.  . 

P  .  FT AR . 

. DATA. 

2  .SYMT. 

. 

ABS 

37 

102  ABSVAL 

.  DATA. 

4 

37 

40 

77  1 

. DATA. 

'  35 

36 

100  II 

.  DATA. 

36 

37 

48 

75  IPS 

. DATA. 

2 

4 

44 

48 

76  OD 

.  DATA. 

2 

4 

37 

44 

2 

13  ODIPS 

.  DATA. 

4 

6 

37 

48 

27  . S222 

35 

41 

40 

47 

EDIT  DATE  06-29-83  <  FT2.1U1  > 

ELAPSED  TIME  (SEC)  .27  LINES/MINUTE  10909 

i 

THERE  WERE  NO  DIAGNOSTICS  IN  ABOVE  COMPILATION 
31 K  WORDS  WERE  USED  FOR  THIS  COMPILATION 


USE  OD  TO  FIND  IPS 


LABEL  0D2 I  PS  PAGE 


4 


P 1 420  01  11-20-84  14.902 


SUB.  GETC0D(K)--STA25P I --EXTRACT  TYPE  CODE  FROM  THE  DESCRIPTION  LABEL  GETCOD  PAGE 


5 


TRANSFERS. . . . 


■* 

FROM'  LI  NE«' 

TO  LINE# 

FROM  LINE# 

“to  l.ine# 

'  FROM  LINE# 

TO  LINE# 

FROM  LINE# 

TO  LINE# 

FROM  LINE# 

TO  LINE#’ 

179 

RETURN 

162 

169 

155 

163 

154 

147 

151 

176 

140 

152 

138 

143 

135 

143 

131 

143 

128 

132 

121 

152 

120 

152 

1  17 

136 

116 

139 

94 

98 

92 

95 

88 

100 

83 

98 

81 

84 

79 

98 

77 

80 

75 

98 

73 

76 

71 

98 

69 

72 

67 

98 

65 

68 

63 

98 

61 

64 

59 

98 

57 

60 

55 

98 

53 

56 

49 

98 

43 

50 

40 

89 

37 

41 

36 

38 

34 

98 

31 

35 

24  105 


1420  01  11-20-84  14.902 


SUB.  GETC0D(K)--STA25P I --EXTRACT  TYPE  CODE  FROM  THE  DESCRIPTION  LABEL  GETCOD 


PACE 


000746 

178 

C 

000746 

179 

RETURN 

000752 

ieo 

END 

00013720 

00013730 

006T3740 


1420  OJ  11-20-84  14.902 


SUB.  GETC0DCKJ--STA25P I --EXTRACT  TYPE  CODE  FROM  THE  DESCRIPTION  LABEL  6ETC0D  PAGE 


300575 

300575, 

300576 

300612 

300612 

300612 


300612 

000612 

300617 

300622 

300623 

300627 

300627 

300630 


300633 

300637 

300637 

300640 


300642 

300642 

300643 

300643 


300647 

300652 

300654 

300654 


300654 

300654 

300660 

300663 


000665 

000665 

300665 

300666 


300666 

000674 

000675 

300712 


000714 

000714 

300714 

000714 


000714 
000714 
300715 
300715 
)007  i'5~ 
000715 
000715 
0007 1_5 
000722" 
000722 
00072G 
000734  _ 
000734  * 
000737 
000737 
000746 
000746 


119 

120 


121 

122 

123 

124 


125 

126 

127 

128 


129 

130 

131 

132 


133 

134 

135 

136 


137 

138 

139 

140 


141 

142 

143 

144 


145 

146 

147 

148 


149 

150 

151 

152 


153 

154 

155 

156 


157 

158 

159 

160 


161 

162 

163 

164 


165 

166 

167 

168 


169 

170 

171 
1Z.2 
1  73 

174 

175 

.1.76. 

177 


C 

C _ IH IS  CHARACTER  MUST  BE  A  NUMBER _ 

DECODE!  DESLET,  51*00, ‘  ERR=7000V  NO 
5100  FORMAT!  1 1  ) 

C  MAKE  A  REAL  NUMBER 

_ X=NO _ 

C 

C  SPLIT  HERE  DEPENDING  WHETHER  BEFORE  OR  AFTER  DECIMAL  PT 

I F ( DECFLG  .EO.  1)  GO  TO  5200 

A  * 


ODTOTL= ( ODTOTL* 10. 0) +X 
GO  TO  6000 
C 

5200  DECMAL«DECMAL*.  1 _ 

ODTOTL=ODTOTL+  C  X*DECMAL) 

GO  TO  6000 
C 

5300  DECFLG*  1 _ , _ 

GO  TO  6000 
C 

5500  CONTINUE 

_ IF  ( BLKFLQ  . EQ.  1)  GO  TO  7000 _ 

IF  (ODTOTL  .GT.  0.05)  BLKFLG= 1 
C 

8000  CONTINUE 

C _ ; _ 

C  THE  SIZE  OF  THIS  FITTING  CANNOT  BE  EXTRACTED, 

C  SO  USE  THE  OD  OF  THE  MAIN  PIECE  OF  PIPE.  * 

8200  F I TOD( K) =  0D10 

_ F I TSAM( K)  =  . TRUE. _ 

GO  TO  9500 
C 
C 

7000  CONTINUE _ 

IF  (ODTOTL.LT. 0.05  .OR.  ODTOTL. GT . 99 . 9)  GO  TO  6200 
C 

IF  (KOMPCH( 1PEC( 1 , K) , 1 , * P* , 1 , 1 )  . EO.  O)  GO  TO  8000 

_ X= ODTOTL _ 

•  GO  TO  9000 
C 

C  THIS  IS  A  PIPE,  SO. THE  NOMINAL  SIZE  (IPS) 

C _ MUST  BE  FOUND.  SUB.  0D2IPS  GOES _ 

C  INTO  THE  TABLES  USING  THE  TRUE  O. D.  TO 

C  EXTRACT  THE  NOMINAL  SIZE. 

6000  CONTINUE 

c _ ; _ 

CALL  0D2 I PS( ODTOTL, X) 

C 

C 

C _ CONVERT  TO  INTEGER- --USE  TEN  TIMES  THE  NOMINAL  SIZE 

9000  CONTINUE 

ODTOTL= ( X* 1 00. 01+1.0 
N0= ODTOTL 

_ F I TOD( K) =N0/ 10 _ 

C 

FITSAM(K)=(F»TOD(K)  . EO.  0D10) 

C 

9500  CONT I NUE _ 

r  rfyj 


00013130 
000131 40 
0001 3 j 50 
00013160 
00013170 
00013180 
00013190 
00013200 
00013210 
00013220 
00013230 
00013240 
00013250 
00013260 
00013270 
00013280 
00013290 
00013300 
00013310 
00013320 
00013330 
00013340 
00013350 
00013360 
00013370 
00013380 
00013390 
00013400 
00013410 
00013420 
00013430 
00013440 
00013450 
00013460 
00013470 
00013480 
00013490 
00013500 
00013510 
00013520 
00013530 
00013540 
00013550 
00013560 
00013570 
00013580 
00013590 
00013600 
00013610 
000 1 3620 
OOOl 3630 
00013640 
00013650 
00013660 
000 13670 
00013600 
00012690 
00013700 
00013710 


M20  01  11-20-04  14.002  SUB.  GETCOD1 K) - -STA25P I - -EXTRACT  TYPE  CODE  FROM  THE  DESCRIPTION  LABEL 


000300 

000300 

000312 

000321 

000322 

000322 

5o0334 

000343 

000344 

000344 

000356“ 

000365 

000366 

000366 

000400 

000407 

000410 

0004 10_ 

000422 

00043 1 

OOU432 

:J00432_ 

0d6~4~44 

000453 

000454 


000454 


000460 

P00460 

000460 

>000461 


000461 

000463 

000464 

000476 


000506 

000507 

000507 

000507 


POOS I  3 
000513 
P0051 6 
000516 


P005I6 

D00516 

000516 

boosje. 

000516 

000520 

000521 

P0O522_ 

000522 

000524 


'000527 

000527 

•  'Cm1  irio' 

•  *oo*»;«o 


■>00340 

P00552 

00564 


60 
_6 1 
62 

63 

64 

65 


66 

67 

68 

69 

70 

71 

72 

73 


74 

75 

76 
77_ 


78 

79 

80 
81 


82 

83 

84 

85 


86 

87 

68 

89 


90 

91 

92 

93 


94 

95 

96 

97 


98 

99 
100 

JO_L 


102 

103 

104 

105 


106 

107 

108 
109 


110 
1  1  1 
112 
II? 

j  1  4 
1  1  5 
116 
.1.17. 

118 


400  CONTINUE 

- LFtKQMPCHC.pES,  1,  ' WELD- O- LET'  .1.10)  .NE.  0)  GO  TO  450 

GO  TO  1800 
450  CONTINUE 

_ I  F( KOMPCHC  DES.  I .  *  SOCKOLET* .1.8)  .  NE.  0)  GO  TO  460 


TC  a  *W’ 

GO  TO  1800 
460  .CONTINUE 

- LEIKOt!ECH(.DES1  I  ,  *  BRAZOLET*  .  1.8)  .  NE.  0)  GO  TO  470 

TC  =  *  W' 

GO  TO  1800 
470  CONTINUE 

_ IfXKOtlPCHLDES,  | ,  'LATROLET*  .  1 . 8)  .NE.  0)  GO  TO  480 

TC  _  ,w.  - 

GO  TO  1800 
480  CONTINUE 

- [PKOMPCHCOES.  1.  ■SLEEVE*  .  1.5)  .NE.  Ol  GOTO  500 

TC  =  *  5*  - -  • 

GO  TO  1800 
500  CONTINUE 

- - LD,fcOMpCH<PES.  I,  'BOSS' ■  1,4)  .  NE.  0)  GO  TO  550 

TC  =  'B' 

GO  TO  1800 
550  CONTINUE 
950C0NT I NUE 


GO  TO  1900 


1000  CONTINUE 


DO  1500  11=3,18  ~ 

1  =  11 

IF( KOMPCH( DES,  I ,  * SLI P-ON' ,  1 , 7)  . NE.  0)  GO  TO  1500 
CALL  CONCAT( TC. 3, ' O' . 1 . 1 ) _ 


GO  TO  1800 
1500  CONTINUE 


1800  CONTINUE 

TYPCOD(K)=TC 
1900  CONTINUE 


THE  SECOND  FUNCTION  OF  THIS  SUBROUTINE  BEGINS  HERE, 
5000  CONT I NUE 


ODTOTL=  0. 0 
BLKFLG=  0 
DECFLG=0 
DECMAL= 1 ■ 0 


DO  6000  11=1,10 
1=  I  I 


CALL  CONCAT (  DESI.ET,  1  ,  DES,  1,1) 

IF  C KOMPCHC DESLET,  1  ,  '  '  ,1,1)  , EQ.  O)  GO  TO  5500 

.11  {  KQMPCI-KDESLETj.l .,J.,  £Q, ..  Q1_G0  TO  5300 

IF  ( KOMPCH( DESLET, 1 ,' X' , 1 , 1 )  . EQ.  0)  GO  TO  7000~ 


GETCOD  PAGE 

00012540 

0001 2550 _ 

00012560 

00012570 

00012580 

00012590 


00012600 

00012610 

00012620 

00012630 


00012640 

00012650 

00012660 

00012670 


00012680 

00012690 

00012700 

00012710 


00012720 

00012730 

00012740 

00012750 


00012760 
00012770 
00012780 
0001 2790 

000  i  2800" 
00012810 
00012820 
00012830 
00012840" 
00012850 
00012060 
00012870 


00012880 

00012890 

00012900 

00012910 


00012920 

00012930 

00012940 

00012950 

00012960 " 

00012970 

00012980 

00012990 

000 1  3000' 

00013010 

00013020 

00013030 


00013040 
00013050 
00013060 
0001 3070 
OOOl 3080 
00013090 
00013100 
.000131  JO 

oodistzo 


I  *120  01  11-20-84  14.902 


SUB.  GETCOD(K) - -ST A25P1- -EXTRACT  TYPE  CODE  FROM  THE  DESCRIPTION  LABEL  GETCOD  PAGE 


000000 

1 

C 

SUB.  GETC00(K)--STA25PI- -EXTRACT  TYPE  CODE  FROM  THE  DESCRIPTION 

0001 1950 

000006 

2 

SUBROUTINE  GETCOD(K) 

OOOI 1960 

000006 

3 

C 

00011970 

000006 

4 

C 

THE  SECOND  PART  OF  THIS  ROUTINE  EXTRACTS  A  FITTING  OD 

0001 1980 

000006 

5 

C 

FROM  THE  DESCRIPTION. 

0001 1990 

000006 

6 

C 

00012000 

000006 

7 

COMMON/ F ! T 1 NG/  OD,  NP, NX, NB, NF, MAT! 25) , IDES! 6. 25) , DETAIL, 

00012010 

000006 

0 

« 

HULL( 5) , NFAB( 25) , ! PEC( 4, 25) , FABNC 1 25, 16), IPOINTI 25) , NPPPTS, 

00012020 

000006 

9 

8 

REV, GRNO( 4)  ,  DWGNO(  5) 

00012030 

000006 

10 

C 

00012040 

000006 

1  1 

COMMON/ STDHRS/TYPCOD( 25) , MACHNO, 0D10, HRTEMP 

00012050 

000006 

12 

CHARACTER  TYPCOD, DES*  24, TC, DESLET* 1 

00012060 

000006 

13 

C 

00012070 

000006 

14 

COMMON/ GETOD/ODFLAG. FfTOD( 25) . FITSAMI25) 

00012080 

000006 

15 

INTEGER  ODFLAG, FI  TOD, BLKFLG, DECFLG,  0D10 

00012090 

000006 

16 

LOGICAL  FITSAM 

00012100 

000006 

17 

REAL  X, ODTOTL,  DECMAL 

00012110 

000006 

16 

c 

00012120 

000006 

19 

CALL  CONCAT ( DES,  1 ,  1 DES( 1 , K) ,  1,4) 

00012130 

00002 1 

20 

CALL  CONCAT!  DES,  5,  IDES(  2,  K) ,  1,4) 

00012140 

000034 

21 

CALL  CONCATIDES, 9,  IDES! 3, K) ,  1, 4) 

00012150 

000037 

22 

c 

00012160 

000047 

23 

IF  1 ODFLAG  .EQ.  2)  GO  TO  5000 

00012170 

000052 

24 

c 

• 

00012180 

000053 

25 

CALL  CONCAT ( DES,  13,  1DES(4,K),  1, 4) 

00012190 

000066 

26 

CALL  CONCAT ( DES. 17. 1DES(5.K) .1.4) 

00012200 

000101 

27 

CALL  CONCAT (  DES,  21  ,  IDES(6,K),  1,4) 

00012210 

000104 

28 

c 

00012220 

000104 

29 

c 

CERTAIN  INFORMATION  ABOUT  THE  FITTING  TYPE  CAN  BE 

0001 2230 

000104 

30 

c 

GAINED  BY  EXAMINING  THE  PIECE  NUMBER  OF  THE  FITTING. 

00012240 

000114 

31 

IF  ( KOMPCHI  1 PEC(  1,K),1,*P',1,1)  .NE.  0)  GO  TO  150 

00012250 

000131 

32 

TC= ' P ' 

00012260 

000140 

33 

GO  TO  1000 

00012270 

000140 

34 

c 

00012280 

000141 

35 

150 

CONTINUE 

00012290 

000141 

36 

IF  ( KOMPCHI IPEC( 1 , K) ,  f ,  '  FL  ’ ,  1,2)  .  EQ.  0)  GO  TO  200 

00012300 

000156 

37 

IF  (KOMPCHI IPECC 1 , K) , 1, *J' , 1, 1)  .NE.  0)  GO  TO  250 

00012310 

000173 

38 

200 

TC» ' F ' 

00012320 

000202 

39 

GO  TO  1000 

00012330 

000202 

40 

c 

00012340 

000203 

41 

250 

CONTINUE 

00012350 

000203 

42 

IF  (KOMPCHUPEC!  I.K).  1.  ’F’ .  1.  1)  . EQ.  0)  GO  TO  300  _ 

00012360 

000217 

43 

c 

SINCE  NONE  OF  THE  ABOVE,  THIS  MUST  BE  A  VALVE 

00012370 

000220 

44 

TC=  '  V' 

00012380 

000227 

45 

GO  TO  1000 

00012390 

000227 

40 

c 

00012400 

000227 

47 

c 

00012410 

000227 

40 

c 

00012420 

000227 

49 

c 

00012430 

000230 

50 

300 

CONTINUE 

00012440 

000230 

51 

DO  950  1 1=2, 22 

00012450 

000233 

52 

1=11 

00012460 

000234 

53 

!F( KOMPCHI DES, 1, 'TEE*, 1,3)  .NE.  0)  GO  TO  325 

00012470 

000246 

54 

TC  =  *  T 1 

00012400 

000255 

55 

GO  TO  1800 

00012490 

OOU25G 

56 

325 

CONTINUE 

00012500 

000256 

57 

I FI KOMPCHI DES,  1,  ’WELDOLET' ,  1,0)  .NE.  0)  GO  TO  400 

00012510 

000270 

58 

TC  =  ’W’ 

OOOJ  25?0 

b00277 

59 

GO  TO  1800 

00012530 

*  1  420  01 

1 1 -20-84 

14. 899 

SUB. 

STDTIM1 TEMP,  ADI 

,  ADN)- 

-STA25PI- 

-CALCULATE  STD.  TIME 

VALUES 

LABEL  STDT 1 M  PAGE 

28 

3752 

. S2362 

947 

948 

953 

954 

955 

956  957  958 

970 

4013 

. S2365 

971 

980 

4026 

. S2367 

972 

988 

4041 

. S2380 

888 

891 

*923 

926 

931 

934  939  942 

975 

978  983  986 

991 

994 

997 

4065 

. S2382 

1003 

1008 

4231 

. S2384 

1004 

1023 

431  1 

. S2385 

826 

827 

901 

967 

1000 

1008  1009  1010 

101  1 

1012  1013  1014 

1015 

1016 

1017 

1035 

4316 

. S2390 

*  818 

821 

1038 

4321 

. S2395 

616 

1040 

4327 

. S3000 

223 

317 

1051 

4346 

. S3020 

1054 

1062 

4660 

. S3030 

1065 

1081 

5170 

.  S3 040 

1082 

1098 

5213 

. S3045 

1105 

1108 

5227 

. S3050 

1100 

1103 

1  106 

1111 

5250 

, S3072 

1  117 

5333 

. S3090 

1  125 

1130 

5370 

, S3 1 00 

1042 

1  108 

1109 

1131 

1136 

5406 

.  S4015 

1  138 

1144 

5407 

. S4019 

1142 

1146 

5426 

.  S4035 

1147 

1153 

5427 

. S4039 

1151 

1  155 

• 

5446 

. S4045 

1150 

1162 

5447 

. S4049 

1160 

1  164 

1 

5473 

. S4055 

1165 

1  173 

5474 

. S4059 

1171 

1175 

2342 

. S4100 

FORMAT 

1177 

1  179 

2305 

. S9076 

FORMAT 

963 

1  191 

5543 

. S9900 

1188 

1189 

5552 

. S9990 

1186 

1193 

EDIT  DATE  06-29-83  <  FT2. 1U1  > 

•'LAPSED  TIME  (SEC)  5740  LINES/ MINUTE  210fa 

THERE  WERE  2  DIAGNOSTICS  IN  ABOVE  COMPILATION 

32K  WORDS  WER E  USED  FOR  THIS  COMPILATION _ 


1420  01  1 1-20-84  14. 099 


SUB.  STDTIMt TEMP,  ADI  ,  AON) --STA25P1 --CALCULATE  STD.  TIME  VALUES  LABEL  STDTIM  PAGE 


27 


371 

.  S930 

307 

308 

312 

376 

.  S940 

278 

280 

283 _ 

294 

295 

_ 296 _ 

297 

302 

306 

31  1 

313 

456 

. S1000 

337  * 

348 

571 

. S1001 

360 

362 

363 

370 

700 

. SI  002 

371 

372 

373 

374 

375 

376 

377 

380 

71  1 

. SI  003 

352 

353 

365 

378 

384 

716 

. St  004 

386 

722 

. SI  005 

349 

392 

730 

. SI  006 

,  328 

331 

387 

397 

733 

. SI  008 

326 

399 

1040 

.  SI 01 2 

426 

430 

435 

1070 

.  SI 01 4 

435 

444 

1102 

.  S1015 

442 

448 

• 

1130 

.  SI 01 6 

439 

440 

445 

446 

456 

1143 

.  SI 01  9 

420 

463 

1171 

. SI  020 

465 

470 

1252 

. SI  022 

478 

482 

487 

1301 

.31025 

487 

491 

492 

495 

1331 

. SI  029 

466 

505 

1365 

. SI  034 

509 

510 

513 

1406 

. SI  038 

433 

506 

51  1 

520 

— 

1524 

. SI  041 

535 

557 

1573 

. SI  043 

560 

561 

562 

564 

565 

567 

161  1. 

. SI  044 

559 

572 

, 

1616 

. SI  045 

529 

530 

536 

543 

555 

576 

1623 

. SI  060 

412 

415 

454  • 

461 

485 

495 

498 

499 

502 

518 

580 

1626 

. SI  065 

410 

581 

1746 

. S 1 072 

605 

616 

1753 

. S 1 074 

602 

603. 

606 

610 

614 

620 

1760 

. SI  076 

594 

597 

599 

624 

1763 

. SI  078 

592 

626 

1772 

. SI  300 

640 

2153 

. SI  305 

669 

680 

2222 

. S1310 

690 

693 

698 

2257 

. S1315 

696 

698 

709 

2302 

. SI  320 

684 

715 

2336 

. SI  330 

719 

720 

723 

2346 

. SI  340 

716 

728 

2371 

. SI  350 

729 

734 

2414 

. SI  360 

735 

740 

2437 

. SI  370 

710 

721 

741 

746 

2446 

. SI  380 

712 

731 

737 

743 

750 

2522 

. SI  388 

761 

768 

2531 

. SI  389 

753 

754 

757 

765 

770 

2536 

. SI  390 

663 

666 

704 

705 

707 

725 

773 

wTIl 

661 

775 

2546 

. S2000 

785 

3164 

. S2320 

832 

859 

. 

3247 

. S2331 

873 

875 

879 

3253 

, S2332 

870 

871 

683 

3301 

. S2340 

886 

894 

3327 

. S2342 

895 

897 

3336 

. S2347 

900 

3342 

. S2350 

896 

904 

3507 

. S2352 

905 

906 

907 

908 

909 

910 

91  1 

912 

913 

914 

917 

3552 

. S2355 

919 

928 

3565 

. S2357 

920 

936 

?6Q0 

, S2360 

915 

946 

2272 

. S2361 

FORMAT 

960 

961 

M20  01  1  1-20-04  14.  099 


SUB.  STDT IM( TEMP, ADI, ADN) 


1024 

1060 

1069 

1070 

1005 

1086 

_ 1087 _ 

1088 

1  f33 

31 

MACHNO 

STDHRS 

62 

66 

* 

5 

MAT 

F1TING 

57 

919 

920 

971 

2174 

MAXI ND 

•  DATA. 

276 

278 

269 

290 

23 

MCH1NG 

.  DATA. 

177 

170 

1032 

1128 

2164 

MPSI2E 

.  DATA. 

66 

217 

218 

219 

651 

654 

660 

1056 

2163 

MTOTAL 

. DATA. 

*  69 

214 

900 

1032 

NAVFTQ 

.DATA. 

97 

100 

747 

NB 

F1TING 

57 

197 

202 

1100 

NF 

FITINQ 

57 

223 

250 

252 

NFAB 

F IT1 NG 

57 

253 

256 

273 

666 

752 

773 

821 

1 

NP 

FITING 

37 

196 

306 

4440 

NPPPTS 

FI  TING 

57 

307 

2166 

NTRUEF 

.  DATA. 

250 

261 

317 

2 

NX 

FITING 

57 

0 

OD 

FITING 

57 

32 

0010 

STDHRS 

62 

60 

200 

201 

644 

645 

646 

647 

797 

790 

799 

800 

010 

1  1  12 

1113, 

1  120 

0 

ODFLAG 

GETOD 

71 

72 

334 

341 

2260 

0MSW1 

.DATA. 

939 

940 

1 

2317 

0MVJT1 

. DATA. 

991 

992 

4441 

REV 

FITING 

37 

1177 

2144 

SETUP 

. DATA. 

97 

100 

631 

1056 

1744 

SHOP JT 

•  DATA. 

66 

75 

260 

200 

441 

487 

490 

493 

563 

566 

603 

698 

1547 

SJTOUP 

.  DATA. 

66 

76 

263 

300 

445 

446 

449 

491 

541 

546 

549 

550 

719 

720 

870 

871 

2152 

SLEEVE 

.  DATA. 

97 

100 

742 

2146 

SLPFLG 

.  DATA. 

97 

711 

3 

STOHRS 

62 

STDT 1 M 

3 

2236 

SWFLAG 

.  DATA. 

66 

829 

918 

1000 

1 

3 

1065 

1082 

1106 

2155 

TEMPL 

. DATA. 

97 

100 

654 

0 

TYPCOD 

STDHRS 

62 

63 

337 

349 

604 

710 

718 

729 

2151 

WELDO 

97 

100 

736 

54 

WELDS 

.  DATA. 

124 

125 

897 

997 

2162 

WTOTAL 

.  DATA. 

69 

213 

897 

965 

20 

.  S300 

199 

42 

.  S700 

196 

T97" 

209 

135 

.  S01O 

256 

257 

260 

145 

.  S03O 

262 

263 

156 

.  S04O 

258 

269 

i  gT 

.  S050 

270 

271 

171 

.  SB'DO 

264 

273 

174 

.  S895 

252 

274 

342 

,  S920 

290 

291 

_ 292 

__3Q3 

347 

.  S925 

209 

305 

- STA25P 1 

--CALCULATE  STD 

.  TIME 

VALUES 

LABEL 

STDT  1 M 

PAGE 

26 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1069 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1  127 

972 

1188 

1134 

220 

221 

642 

643 

644 

645 

646 

647 

648 

1112 

1113 

1115 

1120 

1134 

1147 

1149 

1150 

t  130 

326 

410 

592 

661 

816 

1186 

331 

351 

397 

415 

528 

580 

597 

601 

624 

825 

1038 

216 

219 

220 

221 

457 

459 

573 

617 

643 

648 

769 

790 

791 

792 

793 

794 

795 

796 

601 

802 

803 

804 

805 

800 

007 

800 

809 

1121 

1122 

1123 

387 

393 

1  113 

• 

283 

288 

292 

290 

299 

310 

353 

435 

438 

495 

500 

501 

509 

510 

530 

545 

546 

562 

703 

700 

719 

720 

754 

758 

827 

801 

1109 

301 

309 

362 

363 

365 

367 

439 

440 

441 

492 

493 

490 

499 

501 

509 

510 

535 

536 

564 

565 

566 

605 

606 

608 

704 

705 

706 

675 

877 

801 

1109  .  __ _ 

382 

420 

465 

466 

506 

553 

559 

570 

599 

735 

741 

761 

886 

895 

896 

997 


1163 


1167  1169  1170 


P1420  01 

11-20- 

84  14.899 

SUB. 

STDTIM (TEMP,  ADI, 

ADN)  — 

STA25P1 

—  CALCULATE 

STD.  TIME 

VALUES 

LABEL 

STDTIM  PAGE  25 

2 

GETOD 

71 

44  . 12 

GRNO 

FITTING 

57 

1177 

33 

HRTEMP 

STDHRS 

62 

63 

654 

265 

HULL 

FITTING 

57 

1177 

2157 

1 

.  DATA. 

199 

200 

201 

202 

542 

543 

547 

549 

609 

610 

612 

I 

467 

I  ABN 

FITING 

66 

78 

287 

291 

2223 

IARG 

DATA, 

66 

449 

450 

451 

452 

453 

541 

542 

548 

550 

608 

609 

6  13 

' 

887 

890 

922 

925 

930 

933 

938 

941 

974 

977 

982 

985 

990 

993 

997 

1003 

1004 

1023 

1024 

1032 

1126 

1127 

1128 

1132 

1133 

1134 

2338 

IBT 

DATA 

6  4 

1141 

1144 

1  1  77 

36 

IDES 

FITTING 

57 

2336 

IFT 

.DATA, 

64 

1159 

1162 

1177 

2335 

IMT 

.DATA, 

6  4 

1150 

1153 

1177 

2165 

IND 

.DATA, 

2  30 

2  5  3 

260 

262 

270 

2  7  3 

276 

321 

351 

352 

397 

405 

4  2  4 

425 

428 

429 

470 

471 

480 

481 

509 

510 

514 

515 

516 

51  7 

528 

529 

560 

500 

587 

601 

602 

624 

638 

689 

692 

7 19 

720 

752 

753 

773 

785 

825 

826 

1038 

2221 

INDCEN 

DATA 

66 

425 

429 

471 

475 

476 

481 

495 

498 

499 

5 

(501 

@8  9 

690 

692 

693 

698 

703 

704 

705 

706 

2170 

INDEND 

. DATA, 

66 

253 

262 

270 

351 

352 

424 

426 

428 

430 

435 

438 

439 

440 

441 

445 

446 

449 

450 

451 

459 

460 

470 

473 

474 

478 

480 

482 

487 

490 

491 

492 

493 

528 

529 

560 

601 

602 

7  5  2 

753 

825 

826 

323 

IPEC 

FITTING 

57 

257 

328  , 

412 

594 

663 

818 

4407 

IPOINT 

FITTING 

57 

308 

16 

IPREP 

1  068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1127 

1133 

2175 

IPTA 

, DATA, 

287 

291 

308 

2235 

IWSIZE 

.  DATA, 

66 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

806 

808 

809 

810 

8  3  1 

2340 

IWT 

.DATA. 

64 

1170 

1173 

1177 

2173 

J 

.DATA, 

262 

263 

270 

271 

290 

291 

292 

294 

295 

299 

300 

301 

307 

308 

352 

353 

356 

362 

363 

365 

367 

529 

530 

535 

536 

538 

539 

541 

545 

54  6 

54  7 

840 

54  9 

550 

561 

573 

Ml 

si! 

>j] 

605 

606 

608 

753 

754 

757 

758 

826 

827 

832 

871 

875 

877 

881 

960 

1024 

1027 

1028 

1029 

1030 

1188 

1189 

2202 

JJ 

.DATA. 

333 

342 

394 

560 

561 

562 

563 

564 

565 

556 

1352 

JTFIT 

.DATA, 

72_ 

2  63 

271 

449 

541 

608 

1155 

JTOD 

. DATA . 

72 

450 

459 

473 

475 

514 

516 

538 

547 

549 

573 

8  3 

41027 

1028 

1029 

1030 

760 

JTSAME 

.DATA. 

73 

451 

460 

474 

476 

515 

517 

539 

5  4  8 

550 

574 

832 

2237 

JTSIZE 

.DATA. 

72 

831 

635 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

897 

997 

1026 

1027 

1028 

1029 

1030 

1032 

1119 

1120 

1121 

1122 

1123 

1128 

1134 

2167 

K 

.DATA 

253 

256 

257 

271 

273 

278 

280 

283 

285 

286 

287 

289 

290 

296 

297 

298 

300 

301 

309 

310 

326 

328 

331 

333 

337 

349 

351 

382 

397 

410 

412 

415 

420 

452 

453 

457 

458 

465 

4  6  6 

473 

474 

475 

476 

506 

514 

515 

516 

517 

523 

538 

539 

543 

553 

559 

570 

580 

5  92 

594 

597 

599 

601 

610 

612 

613 

617 

618 

624 

661 

663 

666 

669 

671 

684 

710 

716 

729 

735 

7  41 

752 

761 

773 

816 

818 

821 

825 

886 

895 

896 

919 

920 

971 

972 

1038 

22  KOMPCH 

294 

2  95 

296 

297 

328 

3  3  7 

349 

360 

365 

371 

372 

373 

374 

375 

376 

377 

412 

420 

426 

430 

465 

4  6  6 

478 

482 

506 

559 

594 

599 

663 

684 

690 

693 

710 

716 

729 

735 

741 

757 

761 

818 

873 

875 

886 

8  95 

896 

905 

906 

907 

908 

909 

910 

911 

912 

913 

91  4 

919 

920 

_ 24J_ 

948 

955 

954 

955 

956 

951 

971 

972 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 
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OFFSET  SYMBOLIC  GLOBAL  REFERENCES  BY  ALTER  NUMBER 


5  . ASCB. 

1  . DATA. 

17  ■  E.  L,  ■  .DATA. 
7  . FCHM. 

12  . FCNVC 

14  . FCNVI 

13  . FCNVR _ 

G  .  FCOM. 

10  . FF IL. 

11  . FSRO. 

2  . FTAB. _ 

15  . FWRD. 

2  .SYMT. 


2142 

ADI 

. DATA. 

3 

1105 

2141 

ADN 

•  data. 

3 

1  108 

722 

BNDHRS 

.  DATA. 

82 

83 

202 

2150 

BOSS 

.  DATA. 

97 

100 

730 

2147 

BRANCH 

.  DATA. 

97 

100 

724 

_ 2153 

BRZFIT 

•  data, 

97 

100 

764 

2154 

BRZFLG 

.DATA. 

97 

100 

768 

2160 

BTOTAL 

. DATA. 

69 

202 

1140  .  1141 

20 

CONCAT 

302 

553 

570 

2257 

CSSW1 

.DATA, 

931 

932 

♦ 

2316 

CSVJT1 

.  DATA. 

983 

984 

2256 

CUSW1 

. DATA. 

923 

924 

# 

2315 

CUVJT1 

.  DATA. 

975 

976 

264 

DETAIL 

FI  TING 

57 

1177 

4446  DWGNO  FI  TING  57  1177 

17  FABHRC  1056 


605 

FABHRS 

. DATA. 

104 

1115 

105 

651 

654 

699 

71  1 

724 

730 

736 

742 

747 

764 

768 

467 

FABN 

FITING 

57 

63 

78 

294 

295 

296 

297 

356 

365 

367 

426 

430 

478 

482 

690 

693 

757 

*  866 

875 

077 

960 

1024 

2206 

FABNJT 

.  DATA. 

63 

356 

360 

3.67 

371 

372 

373 

374 

375 

376 

377 

866 

873 

877 

905 

906 

907  '  . 

•  908 

909 

910 

91  1 

912 

913 

914 

947 

948 

953 

954 

955 

956  V 

.957 

958 

960 

1008 

1009 

1010 

101  1 

1012 

1013 

1014 

1015 

1016 

1  0 1  7.  ' 

2230 

FFSIZE 

. DATA. 

72 

660 

672 

673  • 

674 

675 

676 

677 

678 

699 

71  1 

724 

730 

736 

742 

747 

764 

768 

4 

F1TING 

57 

1 

FI  TOD 

GETOD 

71 

72 

450 

452 

457 

473 

475 

514 

516 

538 

542 

543 

609 

610 

612 

617 

671 

32 

FITSAM 

GETOD 

71 

73 

458 

474 

476 

515 

517 

539 

548 

550 

613 

616 

669 

2321 

FLAG1 

.  DATA. 

66 

1062 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1103 

1  125 

2322 

FLAG2 

•  DATA. 

66 

1063 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1103 

1131 

2234 

FLG1 

.  DATA. 

706 

888 

889 

2156 

FLGFLG 

. DATA. 

97 

100 

699 

2231 

F0D10 

.  DATA. 

72 

'  671 

673 

674 

675 

676 

677 

678 

834 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

2161 

FTOTAL 

.  DATA. 

69 

212 

651 

654 

699 

711, 

724 

730 

736 

742 

747 

764 

768 

1056 

1115 

..U58 

JJ58 

.1159- 

342  394 


\ 
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TRANSFERS. . . . 


TO  LINE#  FROM  LINE# 


TO  LINE#  FROM  LINE# 


101  11-20-84  14.899  SUB.  STDT I MC TEMP,  AD  1 ,  AON) -- ST A25P I - -CALCULATE  STD.  T I  ME  VALUES  LABEL  STDTIM  PAGE  22 

TRANSFERS. . . . 


FROM’  LINE#” TO  LINE# 
1193  RETURN 


1131  1136 
1105  1100 
1055  1062 


J035 


FROM  LINE#  TO  LINE# 


FROM  LINE#  TO  LINE# 


FROM  LINE#  TO  LINE# 


FROM  LINE#  TO  LIME# 


955 

970 

954 

970 

953 

970 

945 

997 

939 

997 

935 

997 

923 

997 

921 

936 

919 

920 

913 

■  917 

912 

917 

91  1 

917 

900 

_ 91Z _ 

907 

917 

906 

917 

*  893 

< 

)  072 

1 

i  020 

It 

)  745 

>4  370 

362 

10  340 

332 

>0  312 

306 

15  313 

294 

P1420  01 


11-20-84 


14.899 


SUB.  STDTIM (TEMP ,  ADI,  ADN)  —  STA25PI  —  CALCULATE  STD.  TIME  VALUES 


LABEL  STDTIM  PAGE  21 


005535 

005535 

005535 

005535 

005535 

025535 

005537 

005540 

005543 

005344 

005552 

005552 

005552 

003556 

(  *  *TT|J" 


&  5A4,  18X,  A2,  Al,  17X, 


_ 1186 _ IF  (NF  ,  EO .  0)  GO  TO  9990 _ 

1187  C  ZERO  OUT  SHOPJT  ARRAY  FOR  NEXT  TIME  THROUGH 

1188  DO  9900  J=l,  MAXINO 

1189  9900  , SHUPJT (J) =0~ 

_ 1190 _ c _ 

1191  987  6  FORMAT  (V) 

1192  c 

1193  9990  RETURN 

_ 1194 _ END _ 

1470  EQUALITY  OR  NON-EQUALITY  COMPARISON  MAY  NOT  BE  MEANINGFUL  IN  LOGICAL  IF  EXPRESSIONS 
7  MEMORY  EXPANDED.  USE  SLIMITS  OR  CORE=  OPTION  FOR  NEXT  RUN 


00011810 
J0011820 _  u 

00011830 

00011840 

00011850 

00011860 

00011870 

00011880 

00011890 

00011900  _ 

00011910 

00011920 

00011930 

0  0  0  1  1  9  4  0 


P 1  420  01 

1 1-20-64 

14.899  SUB.  STDT I M ( TEMP, ADI , ADN) - -ST A25P 1  - -CALCULATE  STD.  TIME  VALUES 

LABEL  STDT 1 M  PAGE  20 

005264 

1122 

IF  ( OD 1 0  .GT.  81)  JTS 1 ZE=  4 

0001 1220 

005271 

1123 

IF  (ODIO  .GT.  141)  JTS 1 ZE=  5 

0001 1230 

005274 

1124 

C 

0001 1240 

005276 

1  125 

IF  CFLAG1  .EQ.  0)  GO  TO  3090 

0001 1 250 

1-005301 

1  126 

1 ARG= 1 

0001 1260 

005303 

1  127 

IF  ( KOMPCHC  1 PREP( 1 ) .  1 .  ’ PM-2 ' .  1.4)  .  EQ.  0) 

IARG* 5 

0001 1 270 

(005323 

1128 

MTOTAL=MTOrAL*MCHING( IARG, JTSIZE) 

0001 1200 

005323 

1  129 

C 

00011290 

005333 

1  130 

3090  CONTINUE 

0001 1300 

005333 

1  131 

IF  (FLAG2  .EQ.  0)  GO  TO  3100 

0001 1310 

005336 

1  132 

I ARG= 1 

0001 1320 

005340 

1133 

IF  ( KOMPCH(  1 PREP(  3),  1,  ' PN-2 ' ,  1,4)  . EQ.  0) 

1 ARG=5 

0001 1330 

005360 

1  134 

MTOTAL* MTQTAL+  MOM I NG(  IARG, JTSIZE) 

0001 1340 

005360 

1  135 

C 

0001 1350 

005370 

1  136 

3100  CONTINUE 

0001 1360 

005370 

1  137 

C 

0001 1370 

005370 

1  138 

IF  (NB  . EQ.  0)  GO  TO  4015 

0001 1380 

1005372 

1  139 

C 

0001 1390 

005373 

1  140 

BTOTAL* ( BTOTAL* 10.0)  +  0.001 

0001 1 400 

(005377 

1141 

! BT= BTOTAL 

nnn  i  i  a  i  r> 

005405 

1  1  42 

GO  TO  4019 

0001 1420 

005.105 

1  1  43 

c 

0001 !430 

105406 

1144 

4015  1 0T=  0. 0 

0001 1440 

005400 

'005407 

1145 

c 

0001 1450 

1  1  46 

4019  CONTINUE 

0001 1460 

•>05407 

1  147 

IF  (MTOTAL  . LT.  0.03)  GO  TO  4035 

0001 1470 

1  O 

i  3 

1  ft  A  Q 

1  1  Ut 

/■* 

U 

000  t i 400 

1  149 

MTOTAL* ( MTOTAL* 1 0. 0)  +  0.001 

0001 1490 

005417 

1  150 

1 MT-MTOTAL 

0001 1500 

'005425 

1151 

GO  TO  4039 

0001 1510 

005425 

1  152 

C 

0001 1520 

005426 

1  153 

4035  I MT  =0.0 

00011530 

j005426 

1  154 

C 

0001 1540 

005427 

1  155 

4039  CONTINUE 

0001 1550 

005427 

305432 

1156 

1157 

IF  ( F TOTAL  .LT.  0.03)  GO  TO  4045 

C 

0001 1560 

0001 t  570 

305433 

1  158 

FTOTAL* ( FTOTAL* 10.0)  +  0.001 

0001 1580 

305437 

1  159 

IFT=FTOTAL 

0001 1590 

305445 

1160 

GO  TO  4049 

0001 1600 

305445 

1161 

C 

0001 1610 

005446 

1162 

4045  1 FT=0. 0 

0001 1620 

305446 

1163 

C 

1)001  1630 

305447 

1164 

4049  CONTINUE 

0001 1640 

305447 

1165 

IF  ( WTOTAL  .LT.  0.03)  GO  TO  4055 

0001 1650 

305452 

1166 

C 

0001 1660 

305453 

1167 

IF  (WTOTAL  .GT.  1000.0)  WTOTAL* 999. 9 

0001 1670 

005456 

1  168 

C 

0001 1680 

005460 

1169 

WTOTAL* ( WTOTAL* 10.0)  +  0.001 

0001 1690 

305464 

1  1  70 

IWT= WTOTAL 

00C 11700 

005472 

1171 

GO  TO  4059 

00011710 

005472 

1172 

C 

000 11720 

005473 

1  173 

4055  !WT=0.0 

0001 1730 

005473 

1  174 

C 

00011740 

\  >05474 

1  1  75 

4059  CONTINUE 

0001 1750 

jin1,  jv.j 

1  1  76 

ci 

0001 1760 

1  /  % 

1  1  7  7 

Ll»  1  IT  /  in  A  ft  nr>  \  QRKin  ni.iftKtn  ui  11  I  ncTAii  new 

AAA  I  1  -V*»A 

•>05535 

1  1  70 

&  IBT, 1 MT, l FT, IWT 

0001 1 780 

[>05535 

. 1.1.79  ... 

_ 4100  HORMAT(  15,  16,  14, A3, 

0001 1790 

005535 

1  1  80 

&  A5,  A6,  A4,  A3,  A6, 

00011800 

I '120  01  11-20-04  14.899 
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004540 
bp 4560 


004600 

004620 

(004640 

P04656 


004347 

•sr\  io4*7 
r  IMMOH  f 

.504350 

504357 

504357 

504360 

1063 

i  r\t~  a 

1  UVH 

1065  ' 

1066 
t  067 
1068 

A 

V 

FLAG2=0 

0001 0G30 

nnn  i  nn  < in 

uvjy  1  vvtw 

C 

C 

IF 

IF 

(TEMPt  1  ).  GT..O.  1  )  GO  TO  3030 

SEE  IF  ‘V*  JOINT  (BUTTWELD) 

( KOMPCHt  1 PREPt  I ) .  1 .  *  P4  ’.1.3) 

EQ. 

Q) 

FLAG1  =  1 

00010650 

00010660 

00010670 

00010680 

504400 

1069 

IF 

(KOMPCHt IPREPt 1 ) , 1 

, *P3  ' , 1 , 3) 

EQ. 

0) 

FLAG1 = 1 

00010090 

004420 

1070 

IF 

(KOMPCHt  IPREPt 1 )  ,  1 

,  'PH-Z'  ,  1,4) 

.  EQ. 

O) 

FLAG! = 1 

00010700 

004440 

1071 

.IF 

(KOMPCHt IPREPt 1 ) , 1 

, 1 PN- 1 ’ , 1 , 4) 

.  EQ. 

0) 

FLAG1 = 1 

00010710 

004460 

1072 

IF 

(KOMPCHt IPREPt 1 ) . 1 

.  *  PN-3* .1.4) 

.  EQ. 

0) 

FLAG1 = 1 

00010720 

004500 

1073 

IF 

(KOMPCHt  IPREPt  1  ) ,  1 

,  ’  PN-5’  ,1.4) 

.  EQ. 

0) 

FLAGI = 1 

00010730 

004520 

1074 

IF 

(KOMPCHt IPREPt 1 ) , 1 

,  '  PN- 8 '  ,  1,4) 

.  EQ/ 

0) 

FLAG! = 1 

00010740 

075 

076 


077 

078 

079 

080 


IF  (K0MPCH(  I PREP(  1  >  , 
IF  (KOMPCHt  1PREP(  > 


IF  (KOMPCHt 
IF  ( KOMPCHt 
IF  (KOMPCHt 


IPREPt 1 ) , 
1  PREP( 1 ) , 
IPREPt 1 > , 


' P22 ' ,1,3) 
' P24 ' .1,3) 


EQ. 

EQ. 


•P10' ,1,3) 

' P5  ’,1,3) 

1  P68A'  ,1,4) 


EO. 

EO. 

.  EQ 


O)  FLAG1 = 1 
0)  FLAG) = 1 


0)  FLAG1 = 1 
O)  FLAG1 = 1 
O)  FLAG1 = 1 


00010750 

00010760 


00010770 
00010780 
00010790 
0001 0600 


004660 

004660 

004667 

004667 


081 

082 

083 

084 


3030  CONTINUE 

IF  ( TEMPt  2) . GT.  0.  1) 


GO  TO  3040 


SEE  IF  *  V‘  JOINT  (BUTTWELD) 


00010810 

00010820 

00010830 

00010840 


004670 

004710 

004730 

2Q4750_ 

104770 

005010 

005030 

005050 


005070 

005110 

P05130 

■005150 


005166 

005170 

005170 

005170 


(005  I  72 
(0051  72 
(005173 
(005177 


005200 

(005204 

D05212 

(005213 


00521  7 

005226 

005227 

b0S227 


(005234 

005237 

P05241 

505241 


(005250 

005250 

bf'5252 

105257 


085 

086 

087 

088 


089 

090 

091 

092 


093 

094 

095 

096 


097 

098 

099 

100 


101 
102 
103 
IP.  .4. 


105 

106 

107 

108 


109 

110 
1  1  1 
112 


113 

114 

115 

116. 


117 

1  «  n 

I  I  O 

119 
J  20 

1 2  i 


IF  (KOMPCHt 
IF  (KOMPCHt 
IF  (KOMPCHI 
JLE.JK0(3PCjiC_ 
IF  (KOMPCHt 
IF  (K0MPCH( 
IF  (KOMPCHt 
IFJKCMPCHf 


IPREP( 3) , 1, 
I  PREP( 3) ,  1, 
IPREPt 3), 1, 

.IEREEL9.UI- 


IF  (KOMPCHt 
IF  (KOMPCHt 
IF  (KOMPCHt 
IF  (KOMPCHt 


I PREPt  3) ,  1, 
I  PREPt  3) ,  1, 
IPREPt  3) ,  1 , 
I  PREPt 3) .  1 . 


•P4  '  ,  1,3) 

'  P3  ’,1,3) 

'  PN- 2 '  ,1,4) 
'  PN-  1  *  ,  .1 . 4) 


IPREPt 3) , 1 , 
I  PREPt  3) ,  I, 
IPREPt 3>,  I, 
I  PREPt  3) .  1 . 


'PN-3*  ,1,4) 
'  PN- 5 '  ,  1,4) 
*  PN-  8  ’  ,1,4) 
'  P22  * .1.3) 


EQ. 

EQ. 

.  EQ. 

EQ, 


.  EQ. 
.  EQ. 
.  EQ. 
EQ-  . 


0)  FLAG2= 1 
0)  FLAG2* 1 
0)  FLAG2=1 
0)  FLA02- 1 


'  P24  *  ,1,3) 
•P10' , 1, 3) 

'  P5  '  ,  1,3) 

*  P68A* .1.4) 


EQ. 

EQ. 

EQ. 


O)  FLAG2® 1 
0)  FLAG22 1 
O)  FLAG2* 1 
O)  FLA02= 1 


0)  FLAG2= 1 
0)  FLAG2= 1 
0)  FLAG2= 1 
0)  FLAG2= 1 


3040  CONTINUE 

)  EVERY  STRAIGHT  PIPE  HAS  A  JOB  SETUP  TIME. 

_ IF  (NB  .EQ.  0)  GO  TO  3050 _ 


IF  t  FLAG1 +FLAG2  .GT.  0)  GO  TO  3050 


IF  (ADI  .LT.  0.1)  GO  TO  3045 
IF  ( TEMPt 1)  .LT.  0.1)  GO  TO  3050 

% 

3045  IF  (ADN  .LT.  0.1)  GO  TO  3100 


3050 


IF  t  TEMPt  2)  .GT.  0.1)  GO  TO  3100 
CONTINUE 

IF  ( 0D1 0  .GT.  162)  MPS1ZE=6 _ 


IF  ( OD 1 0  .GT.  202)  MPSIZE=7 
FTOTAL=FTOTAL+FABHRS( SETUP,  MPSIZE) 


3072  CONTINUE 


JTSI ZE= 1 

!F_tPQIQ_.  Gt,  1.|J  JISIZE=2_ 
•F  (0D10  . GT.  41)  JTSi ZE=3 


00010850 

00010860 

00010870 

00010880 


00010890 

00010900 

00010910 

00010920 


00010930 

00010940 

00010950 

00010960 


00010970 
00010980 
00010990 
0001 1000 


0001 

0001 

0001 

0001 


1010 

1020 

1030 

1040 


0001 

0001 

0001 

0001 


1050 

1060 

1070 

1080 


0001 

0001 

0001 

0001 


0001 

000) 

0001 

0001 


0001 
nnn  i 


1090 
1100 
I  110 
1120. 
1  i  30 
1140 
1  150 
1  160 
1  170 

i  1  nn 


0001 1 190 
0001 1200 
0001 1210 
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104061 

104064 

104064 

104064 

104065 

104077 


104111 

104123 

104135 

104147 

104”l6J 

104173 

104205 

104217 


104230 


004337 

004340 

004345 


004345 

004345 

004345 

,9.Q.434?L 

004346 


18 


1004 

1005 

1  006 ' 

1007 

1008 
J009_ 


IF  ( IARG  .NE.  8)  GO  TO  2384 


2382 


THERE  NEEDS  TO  BE  A  MACHINING 
IS  BUTT  WELDED,  BUT  NOT  IF  IT 


VALUE  ADDED  ON  IF  THIS  FLANGE 
IS  SOCKET  WELDED. 


1010 
101  1 
1012 
-1013. 


1014 

1015 
1  O  t  6 
1017 


1018 


1055 

1056 

1057 
1*058 

1059 

1060 
10.61. 
1062 


IF  ( HRl'EMP  .NE.  'T')  GO  TO  3020 
FTOTAL=FABHRC( SETUP, MPS1 ZE) 


IF  NOT  BOTH  ENDS  OF  THE  MAIN  PIECE  OF  PIPE  ARE 
TEMPLATED  OR  A  CUT  LENGTH  IS  REQUIRED  OR  THE  END 
PREP  INDICATES  A  BUTTWELD,  THEN  THIS  DETAIL  REQUIRES 

_ A  JOB  _SEJ  -  UP  TIME  EVEN  J’HOUGlijntiERE  ARE  NO  FITTINGS. 

3020  FLAGIsO  ~  .  “  ~  ~ 


00010040 

00010050 

oooiodoo 

00010070 


IF 

( KOMPCHt  FABNJT, 

1, 

' P41 ‘ , 1,3) 

.  EQ. 

0) 

GO  TO  2385 

00010080 

JL 

( KOMPCHt  FABNJT.  1  . 

*  P 1 4 ' .1.3) 

.  EO. 

0) 

GO  TO  2385 

00010090 

IF 

( KOMPCHt FABNJT, 

1, 

*  P2  ‘  ,  1,3) 

.  EQ. 

0) 

GO  TO  2385 

00010100 

IF 

(KOMPCHt FABNJT, 

1, 

'  P 1  5 ' ,  1,3) 

.  EQ. 

0) 

GO  TO  2385 

000101 10 

.'F 

(KOMPCHt FABNJT, 

1. 

* PN- 7  * ,  1 , 4) 

.  EQ. 

0) 

GO  TO  2385 

00010120 

IF 

(KOMPCHt FABNJT. 

Jx 

' PNI 4  * .1.4) 

.EQ. 

0) 

GO  TO  2385 

00010130 

IF 

(KOMPCHt FABNJT. 

1  . 

*  P17*  .  1 . 3) 

.  FQ. 

0) 

Qft  TO  2385 

nnni ni An 

IF 

(KOMPCHt FABNJT, 

i, 

•Pie* , i,3) 

.  EQ. 

6) 

GO  TO  2385 

oooioioo 

IF 

t KOMPCHt FABNJT, 

i. 

‘ V28  * ,  1 , 3) 

.  EQ. 

0) 

GO  TO  2385 

00010160 

— UL 

(KOMPCHt FABNJT. 

J-X 

1  P4311_L_3L_ 

0) 

GO  TO  2385 

00010170 

VV'lbV/V 

104230 

104230 

1013 

1020 

1021 

C 

c 

c 

Now  utitRriiNt  WHiuH  MAcHiNrNG 
WHETHER  FOR  STRAIGHT  BEVEL  OR 
t 1 PN-2*  IS  THE  ONLY  J  BEVEL.) 

VALUE  TO  USE, 

J  BEVEL. 

NOTE  THAT  ONLY  BUTTWELDS 

00010190 

00010200 

00010210 

104230 

1022 

c 

REQUIRE  BEVELS. 

00010220 

10423t 

1023 

2384 

1 ARG= 1 

nnntn^rxri 

104233 

1024 

IF  t KOMPCHt FABNt  J, 0) ,  1,  ' PN-2' ,1,4) 

.EQ.  0)  IARG=5 

00010240 

104245 

1025 

c 

00010250 

104247 

1026 

JTS I ZE= 1 

00010260 

104251 

1027 

IF  CJTODfJ)  .GT.  14).  JTS  1  ZE*2 

00010270 

104257 

1028 

IF  tJTODtJ)  .GT.  46)  JTS1ZE=3 

00010280 

104265 

1029 

IF  (JTODtJ)  .GT.  92) ' JTS l ZE=  4 

00010290 

104273 

1030 

IF  (JTODtJ)  , GT.  142)  JTSIZE=5 

00010300 

104277 

1031 

C 

00010310 

104301 

1032 

MTOTAL=MTOTAL+MCHING<  IARG, JTSIZE) 

00010320 

104306 

_ 19.35 _ 

C 

00010330 

104*306 

1034 

C 

00010340 

10431 1 

1035 

2305 

CONTINUE 

00010350 

104311 

1036 

C 

00010360 

10431  1 

1037 

C 

ARRAY  NFAB  TELLS  NO.  OF  LINES  PER  FITTING. 

00010370  ' 

104316 

1038 

2390 

1 ND= 1 ND+NFABt  K) 

00010380 

104316 

1039 

C 

00010390 

00432! 

1040 

2395 

CONTINUE 

00010400 

304321 

1041 

C 

00010410 

304326 

1042 

GO  TO  3100 

00010420 

304326 

1043 

C 

00010430 

304326 

1044 

C 

00010440 

304326 

1045 

C 

00010450 

004326 

c 

00010460 

004326 

1047 

c 

00010470 

004326 

t  nan 

c 

nrirt  i  n/ion 

004326 

1049 

c 

BEFORE  WRITING  OUT  RESULTS.  CHECK  FOR  FABRICATION 

00010490 

004326 

1050 

c 

ON  BEND  ONLY  DETAILS. 

00010500 

004327 

1051 

3000 

CONTINUE 

00010510 

004327 

1052 

c 

00010520 

004327 

1053 

c 

FIRST  CHECK  IF  TEMPLATE  SET-UP 

'  TIME  IS  NEEDED. 

00010530 

00010540 
00010550 
00010560 
00010570 
00670580 
00010590 
00010600 
,_0  Opt  0610 

000 j 0620 
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103577 
103000 
103600 
103612 
103623 
03620- 
03623 
03623 
03624 
sir. 


03650 

03662 

03674 


ilakriilH 


03717 

>03720 

>03735 

>03735 

303735 

>03742 

>03746 


03751 

03751 

03751 


03752 

03765 

03777 


04002 
04006 
04010 
0401  2 


04015 

04021 

04023 


04025 

04026 

04026 

04026 


04030 

04034 

04036 

04040 


04040 

04040 

04041 

04046 


04051 

04054 

04g54_ 

04055 


m 


SEE  IF  • V  JOINT 

CONTINUE _ _ _ 

'IF  (  KOMPCH!  FABNJT,*) ,  '  P4  ’,1,3)  .  EQ.  0)  GO  TO  2362 
IF  ( KOMPCH!  FABWJT,  1 ,  ' P3  ',1,31  .  EQ.  O)  GO  TO  2362 

THE  FOLLOWING  TAKES  CARE  OF  THE  CASES  ’PN-IA’,  * PN-1B*, 

.  *  PN- 2  *  .  1 PN-3A*  .  ' PN-3B'  ■  ’PN-5'.  &  ’PN-8'. _ 

NOTE  THAT  THE  CASES  OF  * PN-7’  8.  *PN-7B*HAVE  BEEN 
REMOVED  FROM  CONSIDERATION  BY  THE  SOCKET  WELD  SECTION. 


953 

.«F 

tP 

! KOMPCH! FABN JT, 
f  KnMPRHf  FARN.IT. 

1. 
1  . 

*PN-*,  1,3) 

• PP2’ .1.3) 

.  EQ. 

,  FQ. 

0) 

0) 

GO 

GO 

TO 

TO 

2362 

2362 

955 

•  - .!!»■„ 

IF 

(KOMPCH! FABNJT, 

1. 

*  P24 * , 1,3) 

■MUUw 

.EQ. 

0) 

GO 

TO 

2362 

956 

IF 

( KOMPCH! FABNJT, 

1, 

*P10* , 1 , 3) 

.  EQ. 

0) 

GO 

TO 

2362 

957 

IF 

(KOMPCH! FABNJT, 

1. 

*  P5  *,1,3) 

.  EQ. 

0) 

GO 

TO 

2362 

8A' .1.4)  .EQ.  0)  GO  TO  2362 


WRITE! 6, 2361 )  FABNJT, FABN( J,  7) 

FORMAT! '  UNLISTED  JOINT  TYPE,  NO  VALUE  GIVEN.  JOINT*, 

I _ '  TYPE=  '  i  2M) - - - ; - 

WRITE!  6.  9876)  * . . ALL  JOINT  TYPES  FAILED' 

WTOT  AL=  WTOT  AL+9000, 0 


GO  TO  2385 


IF  IK0MPCH1MATIK), 1,  'CS* , 1,2)  . EQ.  0)  GO  TO  2365 
IF  (KOMPCH(MAT!K),  I,  'CM*  ,  1,2)  .  EQ.  0)  GO  TO  2367 
CASE  OF, CUN  I  OR  CRES 

1ARG=4  _ _  _ _ 


iF  (CUVJTi  .  EQ.  i)  uo  iu  zjou 
CUVJT1 = 1 
I ARG=  3 

GO  TO  2380 .  . 


CONTINUE 

CASE  OF  CARBON  STEEL 

I  ARG=2 _  . 


IF  ! CSVJT1  .EQ.  1)  GO  TO  2380 
CSVJT1 s 1 
I ARG= 1 

GO  TO  2380 _ —  _ _ 


CONTINUE 

CASE  OF  CHROME  MOLY 

I ARG=6  _ 


IF  ! OMV JT 1  .EQ.  1)  GO 
OMVJT 1 = 1 
I ARG=  5 

GO  TO  2380 _ _ _ 


WTOTAL=WTOTAL+ WELDS!  I ARG, JTSIZE) 


IF  ! SWFLAG  . EQ,  1)  GO  T<5  2385 


I  IN  I  NU  II 


00009450 

00009460 

06609476 

00009400 

00009490 

00009500 

00009510 

00009520 

00009530 

00009540 


00009550 

00009560 

00009570 

00009580 


00009590 

00009600 

00009610 

00009620 

00009630" 

00009640 

00009650 

00009660 


uuuuao/u 

00009680 

00009690 

00009700 


00009720 

00009730 

00009740 


Kjyjwz*  r 

00009760 

00009770 

00009780 


/ SU 

00009800 

00009810 

00009820 


00009840 

-00009850 

00009860 


FLANGES.  COULD  BE  SOCKET  WELDS.  IF  SO.  SKIP  MACHINING  STEP. 

'  ■  CTJ. 


00009880 

00009890 

00009900 


1 v 

00009920 

00009930 

Q000g940 


00009960 

00009970 

00009900 


mime 

00010010 

00010020 

00010030 


3 1 420  01 

303253 

303266 

303270 

303274 

303276 

303300 

11-20-84 

886 

887 
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IF  ( KOMPCHC TYPCQDC  K) ,  1 ,  '  F '  ,  1 ,  1  >  ,  NE.  0)  QO  TO  2340 

I ARG=8 

LABEL  STDT 1 M  PAGE  16 

00008860 

00008870 

888 

889 

890 

891 

IF  ( FLG1  . EQ.  1)  GO  TO  2300 

FLG1 = 1 

1 ARG=  7 

00  TO  2380 

00003880 

00008890 

00008900 

00008910 

303300 

892 

C 

00008920 

303300 

BQfl 

r 

ctrrr  »  p  nflcc 

303301 

094 

2340 

.CONTINUE 

00008940 

303301 

695 

IF  <  KOMPCHC  TYPCODC  K) .  1 .  *  W'  .  1 .  1  ) 

.EQ,  0)  GO  TO  2342 

00008950 

303314 

896 

IF  (  KOMPCHC  TYPCODf  K)  ,  1,  ’B\  1,  1) 

.NE.  0)  GO  TO  2350 

00008960 

303327 

097 

2342 

WTOTALc WTOTAL+ WELDS ( 15,  JTSIZE) 

00008970 

303333 

898 

C 

00008980 

303333 

899 

C 

THE  MACHINING  VALUE  FOR  BOSSES/ WELDOLETS  IS  ALWAYS  0.4. 

00008990 

303336 

900 

234/ 

MrOI AL=MroiAL+0. 4 

00009000 

303341 

901 

GO  TO  2385 

00009010 

303341 

902 

C 

00009020 

303341 

903 

C 

_  _SEE_  IF  SOCKET  WELD  OR  FILLET  WELD  (TIMED  THE  SAME) 

00009030 

303342 

904 

2350 

CONTINUE 

00009040 

003342 

905 

IF  ( KOMPCHC  FABNJT, 1 » ' P4 1 ' , 1 , 3) 

. EQ.  0)  GO  TO  2352 

00009050 

003354 

906 

IF  ( KOMPCH( FABNJT,  1.  ' PI  4 * . 1 . 3) 

.EQ.  0)  GO  TO  2352 

00009000 

003366 

907 

IF  ( KOMPCH( FABNJT. 1 . ' P2  '.1.3) 

.  EQ.  0)  GO  TO  2352 

00009070 

003400 

908 

IF  (KOMPCHt FABNJT,  1,  ‘PIS*, 1,3) 

.EQ.  0)  GO  TO  2352 

00009080 

003412 

909 

IF  (  KOMPCH(  FABNJT,  1 ,  PN-7'  ,1,4) 

.EQ.  0)  GO  TO  2352 

00009090 

003424 

910 

IF  (KOMPCHC FABNJT, 1, 'PN14* , 1, 4) 

.EQ.  0)  GO  TO  2352 

00009100 

003436 

_ m_ 

IF  (KOMPCHC FABNJT.  1  .  'PI  7* .  1 . 3) 

.  EQ.  0)  GO  TO  2352 

000091 10 

003450 

912 

IF  ( KOMPCHC  FABNJT,  1 ,  ' PI  O' , 1,3) 

.EQ.  0)  GO  TO  2352 

00009120 

003462 

913 

IF  (  KOMPrUf  F ARM. IT^  1  t  •  \/9 fl  « 

‘  n\  rn  or>Kf? 

nonnA  i  or* 

003474 

914 

IF  (  KOMPCHC  FABNJT,  1,  *P43\  l|  3) 

. EQ.  0)  GO  TO  2352 

00009140 

003506 

915 

GO  TO  2360 

00009150 

003506 

916 

C 

00009160 

003507 

917 

2352 

CONTINUE 

00009170 

003507 

918 

SWFLAG= 1 

00009100 

00351 1 

919 

IF  ( KOMPCHC MATC K)  .  1  .' CS' .  1 . 2)  . 

EQ.  0>  GO  TO  2355 

00009190 

003524 

920 

IF  (KOMPCHC  MATCK),  1, 'CM' ,  1,2)  . 

EQ.  0)  GO  TO  2357 

00009200 

003536 

921 

C 

CASE  OF  CUNI  OR  CRES 

00009210 

003537 

922 

1 ARG= 1 2 

00009220 

00354 1 

923 

IF  CCUSW1  , EQ.  1)  GO  TO  2300 

00009230 

003545 

924 

CUSW1=1 

00009240 

003547 

925 

1 ARG= 1  I 

00009250 

003551 

926 

GO  TO  2300 

00009260 

003551 

927 

C 

00009270 

003552 

926 

2355 

CONTINUE 

00009280 

323 

C 

UflCst  or  OHKtJON  SlfctL 

00009290 

003552 

930 

1 ARG= 1 0 

00009300 

003554 

931 

IF  (CSSW1  .EQ.  1)  GO  TO  2380 

00009310 

003560 

932 

CSSW1=1 

00009320 

003562 

933 

1 ARG=  9 

00009330 

003564 

934 

GO  TO  2380 

00009340 

003564 

935 

C 

* 

00009350 

003565 

936 

2357 

CONTINUE 

00009360 

003565 

937 

C 

CASE  OF  CHROME  MOLY 

00009370 

003565 

938 

1 ARG- 1 4 

00009380 

003567 

939 

IF  ( 0MSW1  . EQ.  1)  GO  TO  2380 

00009390 

003573 

940 

0MSW1 = 1 

00009400 

003575 

941 

1 ARG= 1 3 

00009410 

nnr*K77 

rsn  Tn 

AQQQri  /OA 

(003577 

943 

C 

00009430 

003577 

944 

C 

00009440 

\ 

i* 1 420  01  1  1-20-84 
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002765 
002771 
00277? 
002772 
002773 
3p2775= 
003000 
003001 
003004 
>OOOpG_ 
OCh  fi  j  i  3 
003020 
003025 
003032 
003037 
003044 
003051 
00305G 
j0030G3 
003070 
603075 
>031  02_ 
>03107 
>031 1 4 
>03121 
?031  26 
>03133 
>03140 
>03145 
>03152 
>03157 
>03162 
>03164 

003164 

003164 
003164 
>03164 
0031 64 

003164 
003  1 65 
>03165 
>03  i  65 
003174 
003201 
>03205 
003206 

003217 
003220 
003^04; 
>03235 
003235 
003247 
003247 
003247 
003252 
003253 
003253 
6 


627 

628 

829 

830 

831 
632 

833 

834 
635 

836 

837 

838 

839 
640 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 
051 

852 

853 

854 

855 

856 

857 

858 
659 
860 
661 
062 

863 
664 

865 

866 
867 

-068. 

869 

670 

671 

673 

674 
875 

-62a 

877 

878 

879 
860 

'  881 
082 
883 

864 


IF  (SHOPJT(J)  .LT.  2)  GO  TO  2385 

_C _ _ _ _ _ _ — - - 

SWFLAG=0 

C 

JTSIZE* 1WSIZE 

IF  (  JTSAMEC  J)  )  GO  TO  2320 - - - 

C 

F0D1 0= JTOD( J> 

,JTS  I ZE*  1 

_ IF  (FODIO  .GT.  6)  JTS1ZE=2 - 

IF  (F0D10  .GT.  8)  JTSIZE=3 
IF  (FODIO  .GT.  ID  JTSIZE=4 
IF  ( FOD! 0  .GT.  13)  JTSIZE=5 

_ IF  (FOD 10  .GT.  16)  JTSIZEsfi - 

IF  (F0D10  .GT.  22)  JTSiZE=7 
IF  ( F0D1 0  .GT.  27)  JTS1ZE=8 
IF  (F0D10  .GT.  32)  JTSIZE=9 

IF  (FOD  10  .GT.  37)  JTSIZFsIO _ __ _  ,  . . 

IF ‘7  FODIO  .  GT.  42)  JTSIZE=11 
IF  (F0D10  .GT.  46)  JTSIZE=12 
IF  (FODIO  .GT.  52)  JTSIZE=13 

_ ,  IF  (FODIO  . GT .  62)  JTSIZE«14 - 

IF  (FODTo  ~GT.  72)  JTSI ZE= 1 5 
IF  (FODIO  .GT.  82)  JTSIZEM6 
IF  (FODIO  .GT.  92)  JTS1ZE=17 

_ IF  (FODIO  .GT.  to?)  _ _ — - - 

IF  (FODIO  .GT.  122)  JTSIZE-19 
IF  (FODIO  .GT.  142)  JTSIZE=20 
IF  (FODIO  .GT.  162)  JTSIZE=2t 

_ IF  (F0D1  0__>  GT.  162)  JTttl?F=gg _ _ _ 

f F  (FODIO  .  (3T.  202)  JTSIZE=23 
C 

2320  CONTINUE 

“§ - A  SHOP  JOINT  ON  THIS  PIECE  MAS  BEEN  FOUND. 

C  TESTS  MUST  BE  MADE  FOR  WHETHER  1ST  OR  LATER 

C  OCCURANCE  OF  EACH  KIND  OF  JOINT  TYPE  (EXCEPT  BOSSES). 

_C _  THESE  ARE  DONE  USING  FLQl  ■  CUSW1  ■  CMVJT1  ,  ETC., - 

C 

FABNJT=FABN( J,  6) 

C 

C  _ MAKE  SURE  THE  JOINT  TYPE  IS  NOT  BLANK. - 

C  GET  JOINT  TYPE  FROM  DUPLICATE  POINT  IF  IT  IS. 

IF  (SJTDUP(J)  . EQ.  9999)  GO  TO  2332 
IF  (SJTDUP(J)  .LT.  1)  GO  TO  2332 


IF  ( KOMPCH( FABNJT, 1, '  ’,1,4)  . NE.  0)  GO  TO  2331 

Q 

IF  (KOMPCH(FABN(SJTDUP( J>,6>, 1, '  ',!|4>  . EQ.  0)  GO  TO  2331 

r.  .  . . 

FABNJT  =  FABN( SJTDUP( J) , 6) 

C 

2331  CONTINUE 

C  BLANK  OUT  nHPl  inATF  JOINT  _ _ _ 

SHOP JT ( SJTDUP( J) )=0 
C 

2332  CONTINUE 

C  _  _ _ _  _ _ — - -  - 

-  TC-CT  PflR  PI  AMrtF 


00008270 

00008280__ 

T50008296 

00008300 

00008310 

00008320 _ 

UUU08330 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00008400 

00008410 

00008420 

00008430 

00008440 

00008450 

00008460 

00000470 

00008480 _ 

00008490 
00008500 
00008510 
00008520, 
00008530 
00008540 
00008550 
00008560 
00008570 

00000580 
00006590 
00006000 

000086 TO 

00008620 
00008030 
00008640 

00008650 

00008660 
00008670 
00008680 

GO0D869O 
00008700 
00008710 
00008720 
-00008730 

00008740 
00C08750 
000087G0 
“00008770 
00008780 
00000790 
00008000 
- Ooooeoi o 
00008020 
00008830 
00008040. 

'  00008850 


1420  01  1 1-20-84 
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002522 

7GQ 

1380 

FTOTAL= 

FTOTAL+FABHRS( BRZFLG, FFSI ZE) 

00007680 

002526  _ 

769 

C 

00007G90 

00253 1 

770 

1369 

CONTINUE 

00007700 

002531 

771 

C 

00007710 

002531 

772 

C 

ARRAY  NFAB  TELLS  NO.  OF  LINES  PER  FITTING. 

00007720 

002536 

773 

1390 

1 ND= I ND+NFAB( K) 

00007730 

002536 

774 

C 

00007740 

002541 

775 

1395 

CONTINUE 

00007750 

002541 

776 

C 

00007760 

002541 

_ 777 

C 

00007770 

002541 

778 

C 

00007780 

002541 

779 

C 

00007790 

0O2F.4 1 

780 

C 

• 

00007800 

00254 1 

781 

....CL . 

00007810 

002541 

782 

C 

00007820 

00254 1 

783 

C 

*****  WELDING  ***** 

00007830 

002541 

704 

c 

00007040 

fOO?54G 

785 

2000 

1  ND=  1 

00007850 

002550 

786 

FLGi =0 

00007860 

002550 

787 

C 

00007870 

002552 

780 

1 WSIZE* 1 

00007880 

002554 

789 

IF  ( 0D1 0  . 

OT. 

6)  IWS1ZE*2 

00007090 

002561 

790 

IF  ( 0D1 0  . 

GT. 

8)  i  WSIZE=*3 

00007900 

002566 

791 

IF  ( 0D1 0  . 

GT. 

1  1  ) 

1 WSI  ZE*  4 

00007910 

002573 

792 

IF  (0010  . 

GT. 

13) 

I WSI ZE=5 

00007920 

002600 

793 

IF  ( OD 1 0  . 

GT. 

16) 

I WS 1 ZE- 6 

00007930 

002605 

794 

IF  ( OD 1 0  . 

GT. 

22) 

1 WSI ZE=7 

00007940 

002612 

795 

IF  ( 0D1 0  . 

GT. 

27) 

1 WS 1 ZE= 8 

00007950 

002617 

796 

IF  (0010  . 

GT. 

32) 

1 WS 1 ZE*  9 

00007960 

002624 

797 

IF  ( OD 1 0  . 

GT. 

37) 

1 WSI ZE= 1 0 

00007970 

002631 

798 

IF  (0D10  . 

GT. 

42) 

IWSIZE= 1  1 

00007980 

002636 

799 

IF  (ODIO  . 

GT. 

46) 

1 WSI ZE= 1 2 

00007990 

002643 

600 

IF  (ODIO  . 

GT. 

52) 

I WSI ZE* 1 3 

00008000 

002650 

601 

EH 

62) 

l WS 1 ZE* 1 4 

00008010 

002655 

602 

IF  (ODIO  . 

GT. 

72) 

1 WS 1 ZE= 1 5 

00008020 

002662 

603 

IF  (ODIO  . 

GT. 

82) 

1 WS 1 ZE* 1 6 

00008030 

002667 

604 

IF  (ODIO  . 

GT. 

92) 

1 WS 1 ZE= 1 7 

00008040 

002674 

605 

IF  (ODIO  . 

GT. 

102) 

1  WSIZE*  1  6 

00008050 

002701 

806 

IF  (ODIO  . 

GT. 

122) 

1 WSIZE* 1 9 

00008060 

002706 

607 

IF  (ODIO  . 

GT. 

142) 

I WSIZE* 20 

00008070 

002713 

808 

IF  (ODIO  . 

GT. 

162) 

I WSIZE=21 

00008080 

002720 

609 

IF  (ODIO  . 

GT. 

182) 

1 WSIZE* 22 

00008090 

002725 

610 

IF  (ODIO  . 

GT. 

202) 

1 WS I ZE=  23 

00008100 

002730 

61  1 

c 

000081 10 

002730 

612 

c 

00008120 

002730 

813 

c 

00008130 

002730 

814 

c 

LOOP 

THROUGH 

ARRAY  OF  FITTINGS. 

00008140 

002730 

815 

c 

00008150 

002732 

816 

DO  2395  K=1,NF 

00008160 

002735 

617 

c 

IF  THIS 

FITTING  IS  STAVING^  IGNORE  IT  AND  CONTINUE. 

00008170 

002735 

816 

IF  ( KOMPCH( 1 PEC( 4. 

K) ,  1 ,  ' S'  ,  1  *  1 )  -EQ.  0)00  TO  2390 

00008180 

002750 

619 

c 

00008190 

002750 

620 

c 

ELIMINATE  ONE 

LINE  FITTINGS. 

00008200 

002751 

621 

IF  (NFAB(K)  . 

EQ.  1 )  GO  TO  2390 

00008210 

002755 

622 

c 

00008220 

002755 

623 

c 

00008230 

002755 

624 

c 

SEE  IF  ANY 

JOINTS  THIS  PIECE 

00008240 

0O3£§6 

_ 6  £5 

1 NDEND= 

_!ND+NFAB(K)-1 

00008250 

002763 

626 

DO  2365  J= 

INDj  INDEND 

000082^0 

I 

PI  420  01 
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002257 

7QQ 

1  3  1  F> 

CONTINUE 

00007090 

002257 

710 

IF  ( KOMPCHt TYPCODI  K) , 3,  ' O' ,  1 ,  1 )  . NE.  O)  GO  TO  1370 

00007100 

002272 

71  1 

FfbTAL=FTbTAL+FABHRS( SLPFLG,  FFSIZE) 

000071 10 

002301 

712 

GO  TO  1380 

00007120  1 

002301 

713 

c 

00007130 

002301 

714 

c 

SEE  IF  BRANCH 

00007140 

002302 

715 

1320 

CONTINUE 

00007150 

002302 

716 

IF  (KOMPCH(TYPCOD( K) ,  1 ,  'P* ,  1 , 1 )  . NE.  0)  GO  TO  1340 

00007160 

002314 

717 

C 

00007170 

[iTtfeicl  FHSB 

716 

n 

00007180 

002315 

719 

IF  ISHOPJTI 1ND) . EO. 2  .AND.  SJTDUPI IND) . EQ. 9999)  GO  TO  1330 

00007190 

002325 

720 

1 F ( SHOP JT ( 1 ND+ 1 ) . EQ. 2  .AND.  SJTDUPI 1 ND+ 1 ). EQ. 9999) GO  TO  1330 

00007200 

002335 

721 

GO  TO  1370 

00007210 

002335 

799 

C 

00007220 

00233G 

723 

1330 

CONTINUE 

00007230 

002330 

724 

FTOTAL=FTOTAL+FABHRS(  BRANCH,  FFSIZE) 

00007240 

002345 

725 

GO  TO  1390 

00007230 

nof’rtd!* 

00007260 

002345 

727 

C 

SEE  IF  BOSS 

00007270 

002346 

726 

1340 

CONTINUE 

00007280 

002346 

729 

IF  t  K0MPCH( TYPCODI K),1,  'B*,  1,  1)  .NE.  0)  GOTO  1350 

00007290 

002301 

730 

FTOTAL=FTOTAL+FABHRS(  BOSS. FFSIZE)  . 

00007300 

002370 

731 

GO  TO  1380 

00007310 

002370 

732 

C 

• 

00007320 

002370 

733 

C 

SEE  IF  WELDOLET 

00007330 

002371 

00007340 

002371 

735 

IF  ( KOMPCHt  TYPCODI  K) ,  1 ,  '  W' ,  1 ,  1  )  .NE.  0)  GO  TO  1360 

00007350 

002404 

736 

FTOTAL=FTOTAL+FABHRSC  WELDO,  FFS 1 ZE) 

00007360 

002413 

737 

GO  TO  1380 

00007370 

002413 

736 

c 

00007300 

002413 

739 

c 

SEE  IF  SLEEVE 

00007390 

jngij  t  A 

y  a 

0£imt  i  mijc 

nnno74no 

002414 

741 

IF  ( KOMPCHt  TYPCODI K),  1,  'S',  1,  1)  . NE.  0)  GO  TO  1370 

00007410 

002427 

742 

FTOTAL=FTOTAL+FABHRSI SLEEVE. FFSIZE)  . 

00007420 

002436 

743 

GO  TO  1360 

00007430 

002436 

744 

c 

00007440 

002436 

745 

c 

THEN  THIS  MUST  BE  A  STD  NAVY  FITTING 

00007450 

002437 

746 

1370 

CONTINUE 

00007460  1 

002437 

747 

FTOTAL=FTOTAL+FABHRS<  NAVFTG,  FFSIZE) 

OOOO/470 

002443 

746 

C 

00007480 

002443 

749 

C 

SEE  IF  BRAZED 

00007490 

002446 

750 

1380 

CONTINUE 

00007500 

002446 

751 

C 

SEE  IF  ANY  JOINTS  THIS  PIECE 

00007510 

002446 

752 

1 NDEND= 1 ND+NFABC  K) -  1 

00007520 

002453 

753 

DO  1389  J= IND, INDEND 

00007530 

002455 

754 

IF  1 SHOP  JT  ( J)  .LT.  2)  GO  TO  1389  _ 

00007540  ! 

102461 

755 

C 

00007550 

>02461 

756 

C 

A  SHOP  JOINT  ON  THIS  PIECE  HAS  BEEN  FOUND 

00007560 

002462 

757 

IF  ( KOMPCH( FABN( J,  6) ,  1 ,  ' B* ,  1 ,  1  )  .NE.  0)  GOTO  1389 

00007570 

002475 

750 

SHOPJTI J)=0 

00007580 

002475 

759 

C 

002475 

760 

C 

A  BRAZED  JOINT  HAS  BEEN  FOUND,  SEE  IF  FLANGE. 

00007600 

002477 

761 

IF  (  KOMPCHt  TYPCODI  K),  1,  '  F\  1,  1)  .  EQ.  0)  GOTO  1300 

00007610 

00251 1 

762 

C 

. 

00007620 

00251  1 

7G3 

c 

A  NORMAL  BRAZED  FITTING  HAS  BEEN  FOUND 

00007630 

002512 

764 

FTOT AL=FTOTAL+FABHRSt BRZF 1 T,  FFSIZE) 

00007640 

102521 

765 

GO  TO  1309 

00007650 

002521 

766 

c 

00007660  _  . 

00252 1 

767 

n 

/\  NORMAL  BRAZED  FLANGE  HAS  BEEN  FOUND 

-  00007670 

1420  01 

1 1 -20-84 
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D2027 

650 

C 

ADD  IN  JOB  SET-UP  TIME  FIRST 

00006500 

3203 1  _ 

651 

FT0TAL=FABHRS( SETUP.  MPSIZE) 

00006510 

32035 

652 

C 

00006520 

32035 

653 

C 

ADD  IN  ANY  TIME  REQUIRED  FOR  TEMPLATE  FROM  SHIP 

00006530 

32037 

654 

IF  ( HRTEMP  .EQ.  *T')  FT0TAL=FT0TAL+FABHRSC TEMPL,  MPSIZE) 

00006540 

32053 

655 

C 

32053 

656 

C 

00006560 

32053 

657 

C 

00006570 

32053 

65Q 

C 

• 

00006500 

32053 

659 

c 

32053 

660 

C 

0000G600 

32056 

661 

DO  1395  K= 1 , NF 

00006610 

32061 

662 

C 

IF  THIS  FITTING  IS  STAVING,  IGNORE  IT  AND  CONTINUE 

00006620 

32061 

■i  mi  i  m  m  hi  m  ii  ■  win  mini  i  !■  n  i  ■  i  ■!  1 1  — 

nnnnr.RRO 

32074 

664 

C 

00006640 

32074 

665 

c 

ELIMINATE  ONE  LINE  FITTINGS 

00006650 

32075 

666 

IF  (NFAB(K)  .EQ.  1)  GO  TO  1390 

00006660 

32101 

667 

c 

00006670 

32102 

668 

FFS1 ZE=MPS! ZE 

00006680 

32104 

669 

IF  (FITSAM(K))  GO  TO  1305 

00006690 

32107 

670 

c 

00006700 

32110 

671 

F0D1 0=F I TOD(  K) 

00006710 

321  Id 

672 

FFSIZE=1 

00006720 

321  15 

673 

t 

IF  (F0D10  .GT.  32)  FESIZE*2 

00006730 

32122 

674 

IF  CF0D10  , GT.  52)  FFSIZE=3 

00006740 

32127 

675 

IF  (F0010  .GT.  82)  FFSIZE=4 

00006750 

32134 

676 

IF  CF0D10  .GT.  122)  FFSIZE=5 

00006760 

32141 

677 

IF  CF0D10  .GT.  162)  FFS!ZE*8 

00006770 

32146 

678 

IF  (F0D10  .GT.  202)  FFSIZ£«7 

00006780 

679 

c 

00006790 

32153 

680 

1305 

CONT j  NUE 

00006800 

32153 

681 

C 

IS  THIS  A  SPECIFIED  SPECIAL  FITTING? 

00006810 

32153 

682 

C 

00006820 

32153 

683 

C 

FIRST  TEST  FOR  SLIP-ON  FLANGE 

00006830 

32153 

684 

IF  ( KOMPCHC  TYPC0D(  K),1,'F*,1,1)  .NE.  0)  GO  TO  1320 

00006840 

02165 

685 

C 

00006850 

02165 

686 

C 

SEE  IF  THIS  IS  A  FLANGE  TO  FLANGE  (BOLTED). 

00006860 

02165 

687 

c 

TEST  IS  DONE  BY  CHECKING  IF  THE  CENTER  OF  THE  FLANGE  HAS 

00006870 

02165 

688 

c 

A  POINT  IT  MATCHES  TO  ON  THIS  SAME  DETAIL. 

00006080 

32166 

689 

INDCEN= IND 

00006090 

02170 

690 

IF  ( KOMPCH( FABN( 1 NDCEN, 4) ,  1 ,  '  C ’ , 1 ,  1  )  . EQ.  0)  GO  TO  1310 

00006900 

02202 

691 

c 

00006910 

02203 

692 

INDCEN= 1ND+ 1 

00006920 

02206 

693 

IF  <  KOMPCHt  FABN( I NDCEN, 4) ,  1 ,  *  C '  ,  1 ,  1  )  . EQ.  0)  GOTO  1310 

00006930 

02220 

694 

c 

00006940 

02220 

665 

0 

NO  CENTER  FOUND  FOR  THIS  FLANGE????? 

00006950 

696 

GO  TO  1315 

00006960 

npopi 

CO  *7 

Vi/  # 

r» 

w 

02222 

698 

1310 

IF  ( SHOP JTt 1 NDCEN)  .LT.  1)  GO  TO  1315 

00006980 

02227 

699 

FTOTAL=FTOTAL+FABHRS( FLGFLG.  FFSIZE) 

00006990 

700 

C 

00007000 

02233 

701 

C 

RESET  SO  MATCHING  FLANGE  WON’T  BE  COUNTED 

00007010 

02233 

702 

C 

AS  WELL. 

00007020 

02236 

703 

SHOPJT( 1 NDCEN) =0 

00007030 

02240 

704 

1F(SJTDUP(  1NDCEN)  .  GT.  125)  GO  TO  1390 

00007040 

02245 

705 

IF(SJTDUP( 1 NDCEN)  .LT,  1)  GO  TO  1390 

00007050 

02252 

706 

SHOPJTC  SJTDUPt 1NDCEN) ) =0 

■  00007060 

92256 

707 

GO  TO  1390 

00007070 

02256 

700 

C 

00007080  . 
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101633 
101635 
101637 
101637 
101652 
101-653- 
101653 
101657 
101660 
|Q  1  672 
101673 
101700 
101703 
101707 
101710 
101715 
101721 

>01728 

101727 

101732 

101735 

101736 

101741 

101745 

101745 

101746- 

101746 

101751 

101751 

101763 

101753 

101753 

101753 

101760 

101760 

101763 

101763 

101763 

101763 

101763 

101763 

101763 

101763 

101763 

01763 

01763 

101763 

101770 

101770 

>01772 

101772 
101772 
101773 
102000 
in^oosf 
1020 1  2 
1020 1  7 
i0"'024 
•  ‘027 


591 

592 

593 

594 

595 
■536- 
597 
590 

599 

600 
601 
602 
603 
-604- 

605 

606 
607 
606 

609 

610 
61  1 

-643- 

613 

614 

615 
-64-6- 

617 

618 
619 

-630- 

621 

622 

623 

-634- 

625 

626 
627 

-636- 

629 

630 

631 
-633- 

633 

634 

635 
-63 3- 

637 

638 

639 

640 

641 

642 

643 

644 

645 
046 
647 

.  ?4.8 


DO  1  078  K=  1  ,  NF  _ _ _ _ „ _ 

C  IP  THIS  Fl.TTING  IS  STAVING,  IGNORE  IT  AND  CONTINUE 

IF  ( KOMPCHt  I PEC( 4,K),1,'S',1,11  . EQ.  01  GO  TO  1076 
C 

r  Ft  1M1NATF  ONE  LINE  FITTINGS _ _ _ 

IF  (NFAB(K)  .EQ.  1)  GO  TO  1076 
C 

IF  (KOMPCHC TYPCODC K1 , 4,  1 R' ,  1 ,  1 1  .NE.  01  GOTO  1076 

Q  -  - 

INDEND= 1 ND+NFAB( K ) -  1 
DO  1074  J=IND, INDEND 
IF  (SHOPJT(J)  .LT.  1)  GO  TO  1074 


IF  (SJTDUP(J)  .GT.  125)  GO  TO  1072 
IF  (SJTDUP(J)  .LT.  1)  GO  TO  1074 

I  ARQ=  JTF  1  T(  SJTDUP(  ..1)  ) 

1 =  F 1 TOD<  1 ARG) 

IF  (1  .GE.  FITOD(K))  GO  TO  1074 
FITnnf K1= 1 

F ! TSAM( K) =F I TSAM< 1 ARG) 

GO  TO  1074 


C 

1072  CONTINUE 

FI TOD( K) =  0D10 
F I TSAM( K) = . T. 

C 

1074  flflNT  l  N1  IF  _ 

C 

C 

C  ARRAY  NFAB  TELLS  NO.  OF  LINES  PER  FITTING. 

lQ7fi  1ND=  1N0+NFABC  K) _ _ _ _ _ 

C 

1078  CONTINUE 


C 

C  - 

C 

C 

C 

C  - 

C 

C 

C 

g 

C 

!ND=  1 


*****  FABRICATION  ***** 


C 

1300  CONTINUE  .  . 

C -  MPSIZE  IS  MAIN  PIECE  SIZE  CATAGORY  (LINE  IN  ARRAY) 

MPS I ZE= 1 

IF  ( GDI 0  .GT.  32)  MPS!ZE=2 

IF  ( GDI  0  .GT.  52)  MPSi7F=3  _ 

IF  ( OD 1 0  .GT.  02)  MPS I ZE=4 
IF  (0D10  .GT.  122)  MPS1ZE=5 
IF  ( OD 1 0  .GT.  162)  MPSIZE=6 
_ IF_J.QD.L9—--  GTt._202) .  _MP  S  17F=7 

rs 


00005910 

00005920 

00005930 

00005940 

00005950 

00005960 

000059/0 

00005900 

00005990 

00006000 

UOOUbUlU 

00006020 
00006030 
00006040 
OOOOGUbU 
00006060 
00006070 
00006000 
00006090 
00006100 
000061 10 
00006120 
000061 UU 
00006140 
00006150 
00006160 
000061 /O 
00006180 
00006190 
00006200 

0U0U62IU 

00006220 

00006230 

00006240 

00006250 

00006260 

00006270 

00006280 

oooouzyu 

00006300 

00006310 

00006320 

00U0633U 

00006340 

00006350 

00006360 

U0006370 

00006380 
00006390 
00006400 
000064 1 0 
00006420 
00006430 
00006440 
“00006450 
00006460 
00006470 
00p06480 
00006490 


Pt-120  01  1  1-20-64  14.  699 


SUB.  STDT 1 M( TEMP, ADI ,  ADN) - -STA25P I --CALCULATE  STD.  TIME  VALUES  LABEL  STDTIM  PAGE 


10 


p01 421 

532 

C 

THIS  IS  A  MAJOR  JOINT.  COMPARE  THE  SIZES  OF 

00005320 

[001421 

.  633 

C 

THE  2  FITTINGS  AT  THE  JOINT,  BUT  TRANSFER  IF 

00005330 

jui 42 i 

534 

0 

THE  SPEC  i  AL  CASE  OF  THE  MAIN  PIPE"  JOINT. 

00005340 

boi422 

535 

IF  (SJTOUP(J)  .GT.  125)  GO  TO  1041 

00005350 

001427  • 

536 

IF  (SJTOUP(J)  , LT.  1)  GO  TO  1045 

00005360 

001433 

537 

C 

00005370 

001434 

538 

JT0D( J)=FITOD(K) 

00005380 

001440 

539 

JTSAMEl J)  =F  1 TSAM( K) 

00005390 

p0 1  44  1 

540 

c 

00005400 

001444 

541 

1 ARG»  JTF 1 T( S JTDUP(  J ) ) 

00005410 

001451 

542 

1 =F I TOD( 1 ARG) 

00005420 

001454 

543 

IF  (1  .GE.  FITOD(K))  GO  TO  1045 

00005430 

001457 

544 

C 

. 

00005440 

001460 

545 

SHOPJT( J>=1 

00005450 

30 1 463 

546 

SHOPJT(SJTDUP( J> )=2 

00005460 

001470 

547 

JT0D( J)= 1 

00005470 

001473 

548 

JTSAMEC J)  =  F 1 TSAM(  I ARG) 

00005480 

001477 

549 

JTOD( SJTDUPI J) )= 1 

00005490 

001504 

550 

JTSAMEI SJTDUPt  J) >  =  F!TSAM<  1 ARG) 

00005500 

001507 

551 

C 

00005510 

001507 

552 

C 

SET  FOURTH  LETTER  OF  THE  TYPE  CODE  TO  ’R'  (REDUCING) 

00005520 

001512 

553 

. .CALL  COMSAT <  TYPCOD(K) .  4 ,  *  R  *  .  1 .  1  > 

00005530 

001512 

554 

C 

00005540 

001523 

555 

GO  TO  1045 

00005550 

riQ  | 

CKO 

wwv 

r* 

vs 

001524 

557 

1041 

CONTINUE 

00005570 

001524 

558 

C 

NOW  SET  OTHER  END  OF  THE  PIECE  TO  BE  THE  MINOR  JOINT 

00005580 

001524 

559 

IF< KOMPCHC TYPCOD(K) ,  1 ,  ' S*  ,  1 ,  t >  . EQ,  0)  GOTO  1044 

00005590 

101537 

560 

DO  1043  JJ= IND, INDEND 

00005600 

101541 

561 

IF  ( JJ  . EQ.  J)  GO  TO  1043 

00005610 

001544 

562 

IF  (SHOPJT(JJ)  .NE.  2)  GO  TO  1043 

00005620 

00 i bb i 

SHOP JT i JJ) = 1 

00005630 

001554 

564 

IF  (SJTDUP(JJ)  .GT.  125)  GO  TO  1043 

00005640 

001561 

565 

IF  (SJTDUP(JJ)  .LT.  1)  GO  TO  1043 

00005650 

001566 

566 

SHOF JT ( SJTDUP( JJ) )=2 

00005660 

301573 

567 

1043 

CONTINUE 

00005670 

001573 

568 

C 

00005680 

001573 

569 

C 

SET  FOURTH  LETTER  OF  THE  TYPE  CODE  TO  *R'  (REDUCING) 

00005690 

001600 

570 

CALL  CQNCAT( TYPCQD( K) , 4, ' R' , 1 , I ) 

00005700 

001600 

571 

C 

00005710 

00161 1 

572 

1044 

CONTINUE 

00005720 

301611 

573 

JTOD( J)  =  0D1 0 

00005730 

001614 

574 

JTSAME( J) = . T. 

00005740 

001614 

575 

C 

00005750 

omoiR 

B7R 

ip/ig 

rnMTiNUP 

nnnr>57Rn 

001816 

577 

C 

00005770 

001616 

578 

C 

00005780 

001616 

579 

C 

ARRAY  NFAB  TELLS  NO.  OF  LINES  PER  FITTING. 

00005790 

301623 

580 

1060 

IND= 1ND+NFAB(K) 

00005800 

001626 

581 

1065 

CONTINUE 

00005810 

001626 

582 

C 

00005020 

001626 

563 

C 

00005830 

001626 

584 

C 

, 

00005840 

00 1626 

585 

C 

00005850 

001626 

C 

00005060 

>01633 

587 

l  ND=  1 

00005870 

OO 1 633 

588 

C 

00005080 

001633 

589 

C 

MAKE  SURE  FITTfNG  INFORMATION  IS  IN  ORDER  AND  READY 

00005890 

001633 

n 

FOR  FAB.  &  WELD  I  NO- --LOOP  THROUGH  ARRAY  OF  FITTINGS. 

0000590p 

I  420  01  1  1-20-8-4 
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noi 1 76 
101202 

473 

474 

JTODI  I MDEND) =F 1  TOD I K) 

JTSAMEI INDEND)=FI TSAMI K) 

00004730 

00004740 

1301206  ' 
1301212 
□01213 
301216 _ 

475 

476 

477 

4  78 

C 

JTODI  I NPCEN) =F  J  TOD I K) 

JTSAMEI  1 NDCEN)  =  F 1 TSAMI K) 

IF  I KOMPCHI FABNI  INDEND. 4) .  1  .  •  E*  .  1  .  1  ) 

.  ED.  0)  GO 

TO 

1022 

00004750 

00004760 

00004770 

00004780 

□01230 

479 

C 

00004790 

301231 

480 

INDEND= IND+1 

00004800 

JO i 204 

461 

nuu tin=  1  inu 

uuwmw  1 

301 236 

482 

IF  1 KOMPCHI FABNI INDEND. 4) . 1 . * E * . 1 . 1 ) 

. EQ.  0)  GO 

TO 

1022 

00004820 

nri  1 

483 

0 

00004830 

001250 

464 

C 

NO  END  FOUND  FOR  THIS  BOSS/ WELDOLET? ??? ? 

00004840 

301251 

485 

GO  TO  1060 

- 

00004850 

301251 

_ 468 

O 

00004860 

001252 

487 

001256 

488 

001256 

489 

001257 

490 

001262 

491 

001267 

492 

301274 

493 

301 274 

494 

301 301 
301  305 
30 1  305 

2 mi. 


301313 

301320 

301323 

1013  30. 

301330 
301330 
301331 
30 1  33_L 


301343 

301343 

301344 

2Q±££± 


301364 

301364 

301365 

301365 


495 

496 

497 
499 


499 

500 

501 

502 


503 

504 

505 

.50?, 


507 

506 

509 

510 


51  1 

512 

513 

514 


1022  IF  (SH0PJT( INDEND)  . GT.  1)  GO  TO  1025 

SET  END  TO  MAJOR  JOINT  «  RESET  MATCHING  JOINT  TO  MINOR 
SHOP JT ( INDEND) =2 


I F ( SJTDUPI INDEND)  . GT.  125)  GO  TO  1025 
1F(SJTDUP( INDEND)  . LT.  1)  GO  TO  1025 
SHOPJTI SJTDUPI INDEND) )«1 


1025  IF  (SH0PJT( INDCEN)  .LT.  2)  GO  TO  1060 

SET  CENTER  TO  MINOR  JOINT  &  RESET  MATCHING  JOINT  TO  MAJOR 
_ IF( SJTDUP(  INDCEN)  .  GT.  125)  GO  TO  1060 _ 


IF( SJTDUPI INDCEN)  .LT.  1)  GOTO  1060 
SHOP JT ( I NDCEN) = 1 
SHOP JT( SJTDUPI INDCEN) >=2 
GO  TO  1060 _ 


SEE  IF  BRANCH 
1029  CONTINUE 

IF  ( KOMPCHI TYPCODI K) .  1  .  *  P 1  .  1  .  1 )  .  NE. 


O)  GO  TO  1038 


SEE  IF  EITHER  ENDPT  IS  ON  THE  MAIN  PIPE 
IF  ( SHOPJTI IND) . EQ. 2  .AND.  SJTDUPC I ND) . EQ. 9999)  GO  TO  1034 
IF(  SHOPJTI  IND+  1  >  .  EG).  2  .AND.  SJTDUPI  1  NO*  1  )  .  EQ,  9999)  GO  TO  1034 


GO  TO  1038 

1034  CONTINUE 

JTODI  I ND)  =  F I  TOPI K) 


00004880 

00004890 

00004900 


00004910 

00004920 

00004930 

00004940 


00004950 

00004960 

00004970 

00004980 


00004990 

00005000 

00005010 

00005020 

"00005030 

00005040 

00005050 

00005060 


00005070 

00005080 

00005090 

00005100 


00005110 

00005120 

00005130 

00005140 


301371 

301375 

301401 

301405 


515 

516 

517 

.5.1  S 


JTSAMEI IND)=FITSAM(K> 
JTODI I ND+ 1 ) =F1 TOO! K) 
JTSAMEI IND+1 ) =F I TSAMI K) 
GO  TO  1060 _ 


00005150 

00005160 

00005170 

00005100 


B001405 

01406 

01406 

01406 


301406 

301406 

301406 

301406 


01406 
01406 
[001  413 
P01415 
Ipoi  421 


519 

520 

521 

522 


523 

524 

525 

526 


527 

528 

529 
J530_ 

531 


1038  CONTINUE 

LOOP  THROUGH  ARRAY  OF  FITTINGS  AND  WHICH  JOINTS 


ARE  REDUC I NG .  HAVE  THE  SMALLER  OF  THE  TWO  FITTINGS 
BE  THE  ONE  WHERE  THE  JOINT  IS  FLAGGED  AS  THE  MAJOR 
JOINT  I SH0PJT=2) . 


SEE  IF  ANY  JOINTS  THts  PIECE 
I NDEND= IND+HFABI K) -  1 
DO  1045  J= IND, INDEND 
IF  I  SHOPJTJ  JL.LT.  L>  GO  TO  1 045 _ 


00005200 

00005210 

00005220 

00005230 

00005240 

00005250 

00005260 


00005200 

00005290 

00005300 

66065316 
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T00756 

414 

C 

ELIMINATE  ONE  LINE  FITTINGS 

00004140 

D00757 

415 

. 

IF  INFABIK)  .EO.  1)  GO  TO  1060 

00004150 

.10(1/63 

416 

C 

00004160 

100763 

417 

C 

IS  THIS  A  SPECIFIED  SPECIAL  FITTING? 

00004170 

100763 

418 

c 

00004180 

100763 

419 

c 

FIRST  TEST  FOR  FLANGE 

00004190 

100764 

420 

IF  ( KOMPCHt  TYPCOD( K)  ,  1 ,  '  F  ’  .  1 .  1  )  .NE.  0)  GOTO  1019 

00004200 

300776 

421 

c 

00004210 

300776 

422 

c 

TEST  IS  DOME  BY  CHECKING  IF  THE  END  OF  THE 

FLANGE  HAS 

00004220 

300776 

423 

c 

'  A  POINT  IT  MATCHES  TO  ON  THIS  SAME  DETAIL. 

00004230 

300777 

424 

.INDEND*  IND 

00004240 

301001 

425 

INDCEN= 1ND+1 

00004250 

301004 

426 

IF  ( KOMPCHt  FABNC INDEND, 4),I,*E,,1,1)  .EG.  0)  GO 

TO  1012 

00004260 

301016 

427 

c 

00004270 

301017 

428 

i NDEND* IND+1 

00004280 

301022 

429 

INDCEN* IND 

00004290 

301024 

430 

IF  ( KOMPCH( FABNI  1 NDEND, 4),1,'E',1,1)  .EG.  0)  GO 

TO  1012 

00004300 

001036 

431 

c 

00004310 

001036 

432 

c 

NO  END  FOUND  FOR  THIS  FLANGE????? 

00004320 

001037 

433 

GO  TO  1038 

00004330 

001037 

434 

c 

00004340 

001040 

435 

1012 

IF  ISIIOPJTI 1 NDEND)  .GT.  1)  GO  TO  1014 

00004350 

001044 

436 

c 

00004360 

001044 

437 

c 

SET  END  TO  MAJOR  JOINT  8,  RESET  MATCHING  JOINT  TO  MINOR 

00004370 

001045 

438 

SHOPJT.t  1  NDEND)  »2 

00004380 

001050 

439 

IFISJTDUPt I NDEND)  .GT.  125)  GO  TO  1016 

00004390 

001055 

440 

IF(SJTDUP( 1 NDEND)  .LT.  1)  GO  TO  1016 

00004400 

001062 

441 

SHOPJTI SJTDUP< 1 NDEND) ) = 1 

00004410 

001067 

442 

GO  TO  1015 

00004420 

001067 

443 

c 

00004430 

001070 

444 

1014 

CONTINUE 

00004440 

001070 

445 

I F C SJTDUPI  INDEND)  .GT.  125)  GO  TO  1016 

00004450 

001075 

446 

IFCSJTDUPI 1NDEND)  .LT.  1)  GO  TO  1018 

00004460 

001 101 

447 

_  C . 

00004470 

001 102 

448 

1015 

CONTINUE 

00004480 

001 102 

449 

IARG=JTF1T( SJTDUPI INDEND) ) 

00004490 

001 107 

450 

JTODI  I NDEND) =  F  1  TOD I IARG) 

00004500 

001  1  13 

451 

JTSAMEI INDEND) *F ITSAMI IARG) 

00004510 

001  1  17 

452 

F 1  TOD I K)  =  F 1  TOD I  i ARG) 

00004520 

001 123 

453 

F 1 TSAMI K)  =  F ITSAMI  IARG) 

00004530 

001 127 

454 

GO  TO  1060 

00004540 

001127 

455 

C 

00004550 

001130 

456 

1016 

CONTINUE 

00004560 

001130 

457 

F I TODI K) =0D1 0 

00004570 

001 133 

458 

F ITSAMI K) = . T. 

00004580 

001 135 

459 

JTODI 1 NDEND) =0D10 

00004590 

001140 

460 

JTSAMEI INDEND)*. T. 

00004600 

001142 

461 

GO  TO  1060 

00004610 

001142 

462 

C 

00004620 

001143 

463 

1019 

CONTINUE 

00004630 

001143 

464 

C 

NEXT  TEST  FOR  BOSS 

00004640 

301143 

465 

IF  I KOMPCHt  TYPCODI K) ,  1 ,  '  W' ,  1 ,  1 )  .EG.  0)  GOTO  1020 

00004650 

001156  . 

466 

IF  I KOMPCHt  TYPCODI K) ,  1 ,  1 B* ,  1 ,  1 )  . NE.  0)  GOTO  1029 

00004660 

001170 

467 

C 

00004670 

001170 

468 

C 

TEST  IS  DONE  BY  CHECKING  IF  THE  END  OF  THE 

BOSS  HAS 

00004680 

301 170 

469 

C 

A  POINT  IT  MATCHES  TO  ON  THIS  SAME  DETAIL. 

00004690 

OOI 171 

470 

1020 

1 NOEND* IND 

00004700 

301173 

_  4ZJ. 

1 NDCEN-  IND*- 1 

00004710 

001173 

472 

C 

00004720 

\ 
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D00505 

355 

C 

A  SHOP  JOINT  ON  THIS  PIECE  HAS  BEEN  FOUND. 

00003550 

D00506 

356 

FABNJT=FABN( J.  6) 

00003560 

300507 

357 

C 

00003570 

300507 

358 

C 

MAKE  SURE  THE  JOINT  TYPE  IS  NOT  BLANK. 

00003580 

300507 

359 

c 

GET  JOINT  TYPE  FROM  DUPLICATE  POINT  IF  IT  IS. 

00003590 

3005 1  G 

360 

IF  ( K0MPCH( FABNJT . 1 . '  M.4)  . NE.  0)  GOTO  1001 

00003600 

300527 

361 

c 

00003610 

300550 

362 

IF  (SJTDUP(J)  .EQ.  9999)  GO  TO  1001 

00003620 

3005 05 

363 

IF  <SJTDUP(J)  .LT.  1)  GO  TO  1001 

00003630 

30054 1 

364 

c 

00003640 

300542 

365 

IF  <KOMPCH(FABN(SJTDUP< J),6), 1, •  ',1,4)  . EQ.  0)  GO 

TO  1003 

00003650 

300556 

366 

c 

00003660 

300557 

367 

FABNJT=FABN( SJTDUP( J) ,  6) 

00003670 

300557 

368 

c 

00003G80 

300557 

369 

c 

NOW  CHECK  FOR  ROOT  WELD  JOINT  TYPES 

00003690 

300571 

370 

1001 

CONTINUE 

00003700 

300571 

371 

IF  ( KOMPCHt FABNJT,  1 ,' P61  1 , 3)  . EQ.  0)  GO  TO  1002 

00003710 

300603 

372 

IF  { KOMPCHt  FABNJT.  1  .  *  P62 '.1.3)  .  EQ.  0)  GO  TO  1002 

00003720 

300515 

37?* 

if  t  KfiMpruf  farm  «t  i  ♦  Pfif* ■  ^  i  't)  fo  ni  rsn  tp»  tnno 

00009730 

300627 

374 

IF  1 KOMPCH( FABNJT, 1 ,  * P67 '  , 1,3)  . EQ.  0)  GO  TO  1002 

00003740 

300641 

375 

IF  ( KOMPCH( FABNJT,  1 ,  *  P68 ’,1,3)  . EQ.  0)  GO  TO  1002 

00003750 

300653 

376 

IF  ( KOMPCH( FABNJT .  1 .  *  P70 ' .  1.3)  .  EQ.  0)  GOTO  1002 

00003760 

300665 

377 

IF  ( KOMPCHt  FABNJT,  1 ,  *  P72 ',1,3)  .  EQ.  0)  GO  TO  1002 

00003770 

300677 

378 

GO  TO  1003 

00003780 

300677 

379 

c 

00003790 

300700 

380 

1 002 

0QMT  1  WIJIT  « 

nnonofion 

300700 

3eT 

c 

SET  FIRST  LETTER  OF  THE  TYPE  CODE  TO  'B'  (BOSS) 

00003810 

300700 

382 

CALL  CONCATt  TYPCODt  K) ,  1 ,  '  B' ,  1 ,  1 ) 

00003820 

300700 

383 

c 

00003830 

30071  1 

384 

1003 

CONTINUE 

00003840 

30071  1 

385 

C 

00003050 

300716 

386 

o 

o 

CONTINUE 

00003860 

300716 

387 

IF 

( ODFLAG  . EQ.  1)  GO  TO  1006 

00003870 

300721 

388 

C 

00003880 

300721 

389 

C 

SUBROUTINE  GETCOD  SCANS  THE  DESCRIPTION  «  FINDS  THE 

O.  D. 

00003890 

300721 

390 

c 

WHEN  THE  * ODFLAG'  IS  2. 

00003900 

300721 

391 

c 

ALSO  DETERMINE  RELATION  TO  MAIN  PIPE  PIECE. 

00003910 

300722 

392 

1005 

CONTINUE 

00003920 

300722 

393 

0DFLAG=  2 

00003930 

300724 

394 

CALL  GETCOD(JJ) 

00003940 

300724 

395 

c 

00003950 

300724 

396 

c 

ARRAY  NFAB  TELLS  NO.  OF  LINES  PER  FITTING. 

00003960 

300730 

397 

1006 

IND 

= IND+NFAB(K) 

00003970 

300730 

398 

C 

00003980 

300733 

399 

o 

o 

0> 

CONTINUE 

00003990 

300733 

400 

c 

00004000 

300733 

401 

c 

00004010 

300733 

402 

C 

00004020 

300733 

403 

c 

00004030 

300733 

BE  ®tm 

c 

00004040 

000740 

405 

IND 

=  1 

00004050 

000740 

406 

c 

00004060 

000740 

407 

c 

MAKE  SURE  FITTING  INFORMATION  IS  IN  ORDER  AND  READY 

00004070 

300740 

408 

c 

FOR  FAB.  «  WELDING- --LOOP  THROUGH  ARRAY  OF  FITTINGS. 

00004080 

300740 

409 

c 

00004090 

000742 

410 

DO 

1065  K= 1 , NF 

00004100 

000743 

41  1 

c 

IF  THIS  FITTING  IS  STAVING,  IGNORE  IT  AND  CONTINUE 

000041 10 

300Z42. 

412 

IF 

(  KOMRCH  (  1  PEC  (  4 ,  K ) ,  _1 ,  S',  _1 ,  1  )  .  EQ.  0)G0  TO  1060 

00004120 

300756 

413 

c 

00004130 
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D00277 

296 

IF  ( KOMPCHt FABNt K, 6) ,  t ,  *  S  * ,  1,4)  . EQ.  0)  GO  TO  940 

00002960 

300312 

297 

IF  ( KOMPCHC  FABNt  K. 6) .  I .  *  U  '.1.4)  .  EQ.  0)  GO  TO  940 

00002970 

300325 

290 

SHOP JT( K) = 1  . 

00002900 

300330 

299 

SHOPJT ( J)=2 

00002990 

300333 

300 

SJTDUP(K)* J 

00003000 

300336 

301 

SJTDUPt  J)=K 

00003010 

300341 

302 

GO  TO  940 

00003020 

300342 

303 

920 

CONTINUE 

00003030 

300342 

304 

C 

. 00003040 

300347 

305 

925 

CONTINUE 

00003050 

300347 

306 

IF  (NP  .EQ.  0)  GO  TO  940 

00003060 

300352 

307 

DO  930  J=  1 , NPPPTS 

00003070 

300355 

300 

IF  ( IPTA  .NE.  1 POI NT( J) >  GO  TO  930  • 

00003080 

300362 

309 

SJTDUPt K> =9999 

00003090 

300365 

310 

SHOPJTt  K)  =  2 

00003100 

300370 

31  1 

GO  TO  940 

00003110 

300371 

312 

930 

CONTINUE 

00003120 

300376 

313 

940 

CONTINUE 

00003130 

300376 

314 

C 

00003140 

300376 

315 

C 

00003150 

300376 

316 

C 

00003160 

000403 

317 

IF  ( NTRUEF  .EQ.  0)  GO  TO  3000 

00003170 

000405 

310 

C 

00003100 

000405 

319 

C 

• 

00003190 

000405 

320 

C 

00003200 

300406 

321 

1  ND=  1 

00003210 

300406 

322 

C 

00003220 

300406 

323 

C 

MAKE  SURE  FITTING  INFORMATION  IS  IN  ORDER 1  AND  READY 

00003230 

300406 

324 

C 

FOR  FAB.  0  WELDING- --LOOP  THROUGH  ARRAY  OF  FITTINGS. 

00003240 

300406 

325 

C 

00003250 

300410 

326 

DO  1006  K= 1 , NF 

00003260 

30041 1 

327 

C 

IF  THIS  FITTING  IS  STAVING,  IGNORE  IT  AND  CONTINUE 

00003270 

30041 1 

328 

IF  ( KOMPCHt  IPECt  4,  K) ,  1 ,  '  S* ,  1 » 1 )  . EQ.  0) GO  TO  1006 

00003280 

000424 

329 

C 

00003290 

000424 

330 

c 

ELIMINATE  ONE  LINE  FITTINGS 

00003300 

000425 

331 

IF  (NFAB(K)  .EQ.  1)  GO  TO  1006 

00003310 

000431 

332 

c 

00003320 

000432 

333 

JJ=K 

00003330 

000434 

334 

0DFLAG=0 

00003340 

000434 

335 

c 

00003350 

000434 

336 

c 

MAKE  SURE  THERE  IS -A  TYPE  CODE  VALUE. 

00003360 

000435 

337 

IF  t KOMPCHt TYPCODt K) .  1.  *  XXX’ .  1.3)  . NE.  0)  GOTO  1000 

00003370 

000447 

330 

c 

00003300 

000447 

339 

c 

SUBROUTINE  GETCOD  SCANS  THE  DESCRIPTION  «  GUESSES  A 

TYPE  CODE 

00003390 

000447 

340 

c 

WHEN  THE  *  ODFLAG*  IS  1. 

00003400 

000450 

341 

ODFLAG= 1 

00003410 

000452 

342 

CALL  GETCOD(JJ) 

00003420 

000452 

343 

c 

00003430 

000452 

344 

c 

SOME  FITTINGS  ARE  NEARLY  IDENTICAL  TO  BOSSES  IN  THE 

WAY 

00003440 

000452 

345 

c 

THEY  ARE  WELDED  ONTO  THE  PIPE/  EXAMINE  ALL  Ml  SC.  FIT- 

00003450 

000452 

346 

c 

TINGS  CHECKING  FOR  ROOT  WELD  JOINT  TYPES  WHICH  INDICATE 

00003460 

000452 

347 

c 

THIS  FITTINGS  IS  TO  BE  TREATED  AS  A  BOSS. 

00003470 

000456 

346 

1000 

CONTINUE 

00003480 

000456 

349 

IF  (KOMPCHt TYPCOD(K)  .  1  .  *M' .  1  .  1  )  .NE.  0)  GOTO  1005 

00003490 

000470 

350 

c 

00003500 

000471 

351 

I NDEND= 1 ND+NFAB( K) -  1 

00003510 

000476 

352 

DO  1003  J= IND, INDEND 

00003520 

000501 

353 

IF  t SHOPJTt J)  .LT.  1)  GO  TO  1003 

00003530 

300505 

354 

c 

00003540 

\ 
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300077 
000077 
000077 
000077 
000077 
J0007Z. 
000077 
000077 
000077 
3000 7  7 
000077 

000077 

000077 


TOO  Lot. 

1000101 
boo  1 03 
boo  1 05 
boo  I  1  0= 
booi fo 
bool  12 
pool  17 

pool  34 


000133 

000140 

000142 


000145 

000155 

000155 

000155 

000155 

000155 
b001 56 

JftOOl  SR 


|00016t 
000162 
000171 
inn i 74 


000174 

000201 

000201 

000204 


000207 

000207 

000213 

000213 


P00214 
000220 
500221 
000223 
j60225 
000226 
000230 
000234 . 
(000237 
500244 
J00250 
OQ025| 
300264' 
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237  C  SHOPJT,  DIMENSIONED  125,  HAS  FOUR  POSSIBLE  INTEGER 

238  C  _  FLAGS  AS  VALUES.  I  Tj  -1  IF  THE  SAME  LINE  IN  FABN 

“  239"""  C  REFERS  TO  A  ONE  LTNE  FI  ft !  NG,  =0  jF  THE  POINT  NUMBER 

240  C  DOES  NOT  MATCH  ANY  OTHER  POINT  WITHIN  THE  DETAIL, 

241  C  AND  =1  OR  2  DEPENDING  ON  THE  OCCUR ANCE  OF  THE 

^43  C.  MATCHED  POINT  IN  THF  DFTA1L. 

243  C 

244  C  SJTDUP  HAS  THE  POSITION  WITHIN  ARRAY  FABN  THAT 

245  C  THE  MATCHING  POINT  OCCURS.  (IF  THE  POINT  IS 

94R  C  *  ON  THE  MAIN  PlPF-  THF  VALUE  GIVEN  IS  9999). - 

247  C 

248  C  ' NTRUEF '  IS  THE  #  OF  TRUE  FITTINGS  (NO  STAVING 

249  C  OR  ONE  LIME  FITTINGS). 

ggQ  NTRUEFs NF - 

251  C 

252  DO  695  Ks 1 , NF 

253  I NDEND=  t  ND  +  NFAB( K) -  1 

254  C _ . 

255  C  “  SET  UP  FLAG  TO  SKIP  ONE  LINE  FITTINGS 

256  IF  (NFAB(K)  . EQ.  1)  GO  TO  810 

257  IF  (KOMPCHC 1PEC(4,K) , 1, ‘S* , 1, 1 )  . EQ.  O)  GO  TO  810 

258  _ gg  TO  840  . . . 

259  0 

260  ~  810  SHOPJTC 1ND)*-1 

261  NTRUEF=NTRUEF~ 1 

262  _ DO  830  J=  1 NP.  INDEND _ _ 

263  8HO  JTFIT(J)=25 

264  GO  TO  090 

265  C 

266  _ C _ SETUP  ARRAY  MATCHING  FITTING  ARGUMENT _ 

267  C  NUMBER  WITH  JOINT  ARGUMENT  NUMBER,  I.E.,  WHICH 

268  C  FITTING  DOES  THIS  JOINT  APPLY  TO? 

269  640  CONTINUE 

270  _  DO  650  Jg  I  NP.  INDEND _ _ 

271  650  JTF I T( J) =K 

272  C 

273  890  1 ND= IND+NFAB( K) 

274  _ 805  CONTINUE _  ■  - 

275  C 

276  MAX  I ND= I ND- 1 

277  C 

278  _ DO  940  Ke  1  .  MAXIND .  . . . - 

279  C  SKIP  ONE  LINE  FITTINGS 

280  IF  ( SHOP JT( K)  . EQ.  -1)  GO  TO  940 

281  C 

282  _ C _ ALSO  SKIP  THOSE  THAT  HAVE  BEEN  ALREADY  MATCHED, 

283  IF  ( SHOPJT ( K)  . EQ.  2)  GO  TO  940 

284  C 

285  SJTDUP(K)=0 

286  _ SHOPJT  ( K)  =0  - 

287  1PTA= I ABN( K, 5) 

288  C 

289  IF  (K  .EQ.  MAXIND)  GO  TO  925 

290  DO  920  J=!_K+1  ,  MAXLND _ _ _ 

291  '**  IF  (  IABNC J75)  .  NE.  IPTA)  GO  TO  920 

292  IF  ( SHOPJT  (J)  . EQ.  -1)  GO  TO  920 

293  C  JOINTS  THAT  ARE  SCREWED  OR  THREADED  ARE  IGNORED. 

_2§4 _  _  IF  (KOMPCH(FABN<  J,  _ 1  j  li4? ._E Q ... GO _J0_ § 4 0__ 

295  '  ~  1 "  : <3MPCH( FARM'  1  R),1,'U  *,1,4)  . EQ.  0)  GO  TO  940 
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300012 

178 

DATA  MCHING/ 

00001780 

300012 

_ !Z9._„ 

C 

ARG.  NO.  1  2  3  4  5 

00001790 

DOOOi 2 

180 

C 

0.5-  THRU  1.0" 

00001800 

300012 

181 

&  1.0,  1.0,  1.0,  1.0,  1.0, 

00001810 

300012 

182 

C 

1.25"  THRU  4.0" 

00001820 

300012 

183 

_ 5 _ l.o.  i,o.  i.o.  I.o.  1.0. _ 

00001830 

000012 

184 

C 

5.0"  THRU  8.0" 

nnnm  ft/in 

300012 

185 

&  1.0,  1.0,  1.0,  1.0,  1.0, 

00001850 

30001 2 

166 

C 

10. :  THRU  14. ; 

00001860 

300012 

187 

s» 

o 

o 

o 

o 

o 

00001870 

300012 

188 

C 

16. ;  THRU  20. ; 

00001080 

300012 

189 

&  1.0,  1.0,  1.0,  1.0,  1.0/ 

00001890 

300012 

190 

C 

00001900 

000012 

19! 

AAArt i rt l ft 

WUWU  1  ZJ  1  KJ 

300012 

192 

c 

00001920 

000012 

193 

c 

*****  bending  ***** 

00001930 

300012 

194 

c 

00001940 

300012 

195 

_ 

DETERMINE  BENDING  VALUE  FIRST 

00001950 

300012 

196 

IF  <NP  .EQ,  0)  GO  TO  700 

00001960 

300015 

197 

IF  (NB  . EQ.  0)  GO  TO  700 

00001970 

[000017 

1  Q ft 

Q 

A AM  A  *  AAA 

300020 

199 

300  1=1 

00001990 

300022 

200 

IF  <0010  .GT.  38)  1*2 

00002000 

300027 

201 

IF  <  OD 1 0  .GT.  65)  1  =  3 

00002010 

300034 

202 

BTOTAL=BNDHRS( NB, 1) 

00002020 

000040 

203 

c 

« 

00002030 

000040 

204 

c 

• 

00002040 

K.V/V/ 

w 

uuOu20du 

000040 

206 

c 

*****  SET  UP  ARRAYS  FOR  FABRICATION  ***** 

00002060 

000040 

207 

c 

00002070 

000040 

208 

c 

DETERMINE  FABRICATION  VALUES 

00002080 

000042 

209 

700  CONTINUE 

00002090 

300042 

210 

c 

00002100 

300042 

_ 2 1J _ 

_ C_ 

000021 10 

300042 

212 

FT0TAL=0, 0 

00002120 

300044 

213 

WT0TAL=0. 0 

00002130 

300045 

214 

MT0TAL=0. 0 

00002140 

300045 

_ £1-5— 

c 

00002150 

300045 

216 

c 

MPSIZE  IS  MAIN  PIECE  SIZE  CATAGORY  (LINE  IN  ARRAY) 

00002160 

300046 

217 

MPS1 ZE= 1 

00002170 

300050 

218 

IF  ( QD1 0  .GT.  32)  MPS1ZE-2 

00002180 

300055 

219 

IF  <  0D1 0  .GT.  52)  MPSIZE=3 

00002190 

300062 

220 

IF  (0D10  .GT.  82)  MPSIZE=4 

00002200 

300067 

221 

IF  ( 0D1 0  .GT.  122)  MPSIZE=5 

00002210 

000072 

222 

c 

00002220 

300074 

223 

IF  ( NF  .EQ,  0)  GO  TO  3000 

00002230 

300076 

224 

c 

00002240 

300076 

225 

c 

00002250 

300076 

226 

c 

00002260 

300076 

227 

c 

IND=  INDEX  INTO  FABN  ARRAY.  ALSO  NOTE.  FABNUND.4) 

00002270 

300076 

228 

c 

IS  THE  EVENT  (CENTER  OR  END)  AND  FABN(IN0,5)  IS  THE 

00002280 

300076 

229 

c 

POINT  NUMBER. 

00002290 

300077 

230 

I  ND=  1 

00002300 

231 

c 

00002310 

300077 

232 

c 

DETERMINE  WHICH  JOINTS  ARE  SHOP  JOINTS 

00002320 

300077 

233 

c 

(THOSE  WITHIN  A  PARTICULAR  DETAIL)  AS 

00002330 

300077 

234 

c 

OPPOSED  TO  THOSE  MADE  ON  THE  SHIP  ( I . E. ,  THOSE 

00002340 

3Q007Z 

_ .235. _ 

c 

JOINTS  BETWEEN  DETAILS). 

00002350 

300077 

236 

c 

6dd623G0 

1420  01 

11-20-84 
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00012 

119 

C 

20.5"  THRU  ... 

00001 190 

00012 

120 

&  1.0 

.  i.o,  1.0, 

1.0,  1.0, 

1.0.  1 

1,0,  1,0,  1,0,  1,0/ 

00001200 

00012 

121 

C 

00001210 

00012 

122 

C 

00001220 

00012 

123 

c 

TIME  VALUES  FOR  WELDING 

00001230 

00012 

124 

REAL  WELDS( 1 5. 23) 

00001240 

00012 

125 

DATA 

WELDS/ 

00001250 

00012 

126 

c 

ARG.  NO. 

1  2  3 

4  5  6 

7  0  9  1< 

3  11  12  13  14  15 

00001260 

00012 

l2S7 

c 

0.5", 

00001270 

00012 

126 

& 

1 . 0.  1 . 0.  1 . 0.  1 

0.  1 . 0.  1 . 0.  1 

.0.  1.0.  1. 

p.  1 

00001280 

00012 

129 

c 

0.75" 

00001290 

00012 

130 

& 

1.0,  1.0,  1.0,  1 

O 

O 

«•* 

o 

0,  1 . 0,  1 . 

0. 1 

.0,  1.0,  1,0,  1,0,  1.0,  1.0, 

00001300 

00012 

131 

c 

1.0" 

00001310 

00012 

132 

& 

1 . 0.  1 . 0.  1 . 0.  1 

0,  1  #  0.  1  *  Oj  1 

.0.  1.0.  1. 

0, 1 

o 

o 

o 

o 

o 

o 

00001320 

00012 

133 

c 

1 . 25" 

00001330 

00012 

134 

& 

O 

o 

o 

o 

o 

o 

O 

O 

0, 1 

o 

o 

o 

o 

p 

o 

00001340 

00012 

135 

c 

1.5" 

00001350 

0001  2 

136 

& 

1 . 0.  1 . 0.  1 . 0.  1 

.0.  1.0,  1,0,  1 

.  0,  1,0, 1, 

0, 1 

o 

o 

o 

o 

o 

o 

00001360 

00012 

137 

c 

2.0” 

00001370 

00012 

130 

& 

1 . 0,  1 . 0,  1 . 0.  1 . 0,  1 . 0,  1 . 0,  1 . 0,  1 . 0,  1  . 

0, 1 

p 

o 

o 

o 

«■* 

o 

o 

00001380 

00012 

139 

c 

2.5" 

00001390 

00012 

ft 

1 . 0.  1 . 0.  1 . 0.  1 

.0.  1,0.  1.0,  1 

.0.  1.0.  1. 

J2a-L 

,  O,  1,0,  1  0»  1  i  o. — 

00001400 

>00012 

141 

c 

3.0" 

00001410 

00012 

142 

ft 

o 

o 

o 

.  0,  1..  0,  1 . 0,  1 

.  0,  1 . 0,  1 

0,  1 

o 

o 

o 

o 

o 

% 

o 

00001420 

00012 

143 

c 

3.5" 

00001430 

00012 

144 

ft 

1.0.  1.0.  1.0.  1 

O 

6 

6 

.  o,  1.0, 1 

0. 1 

o 

o 

d 

o 

o 

o 

00001440 

00012 

145 

c 

4.0" 

00001450 

00012 

146 

ft 

o 

p 

o 

p 

o 

o 

.  0,  1.0,  1 

o,  1 

o 

o 

o 

p 

o 

o 

00001460 

>00012 

147 

c 

4.5" 

00001470 

>00012 

146 

ft 

1 . 0. 1 .0. 1 . 0. 1 

.0,  1.0,  1,0,1 

.0.  1.0.  1 

Qj-1- 

i  0.  1 . 0.  l-t-.Q.i  1  .  Q...1  i  P.  1  .  P. — 

00001480 

100012 

149 

c 

5.0" 

00001490 

>00012 

150 

ft 

o 

o 

o 

o 

p 

o 

.  0,  1.0,  1 

0, 1 

o 

o 

p 

p 

o 

o 

00001500 

>00012 

151 

c 

6.0" 

00001510 

>00012 

152 

ft 

o 

o 

o 

.  0,  1.0,  1.0.  1 

.0.  1.0.  1 

.©a. 

• 

o 

d 

o 

d 

d 

d 

00001520 

<00012 

153 

c 

7.0" 

00001530 

<00012 

154 

ft 

o 

o 

o 

o 

o 

o 

.  0,  1.0,  1 

0, 1 

o 

o 

o 

o 

•» 

o 

p 

00001540 

>00012 

155 

c 

8.0" 

00001550 

>00012 

156 

ft 

1 . 0.  1 . 0.  1 . 0.  1 

.  0.  1 . 0.  1 . 0.  1 

.0.  1,0.  1 

0, 1 

.0.  1.0.  1.0.  1.0.  1.0.  1,0, 

00001560 

>00012 

157 

c 

9.0" 

00001570 

>00012 

158 

ft 

o 

o 

o 

o 

o 

6 

.0,  1.0,  1 

o,  1 

o 

o 

o 

o 

o 

o 

00001500 

>00012 

159 

c 

10.  0" 

00001590 

00012 

160 

ft 

o 

o 

o 

o 

o 

o 

— » 

.0.  1.0,  1 

0, 1 

o 

o 

o 

o 

d 

o 

H 

00001600 

>00012 

161 

6 

14.  0" 

00001610 

<00012 

162 

ft 

o 

o 

o 

o 

o 

p 

o 

o 

0, 1 

o 

o 

o 

o 

p 

p 

00001620 

>00012 

163 

c 

14.  0" 

00001630 

>00012 

164 

ft 

o 

o 

o 

O 

o 

d 

o 

o 

p.  1 

o 

o 

o 

o 

o 

r 

•° 

00001G40 

•00012 

165 

c 

16.  0" 

00001650 

•00012 

166 

ft 

o 

o 

o 

o 

o 

o 

.  0.  1.0,  1. 

0, 1 

o 

o 

o 

— * 

o 

o 

o 

00001660 

•00012 

167 

c 

18.  0" 

00001670  , 

•00012 

t68 

ft 

1.0.  1.0.  1.0.  1 

.  0.  1 . 0.  1 . 0.  1 

.0.  1 .0.  1. 

0, 1 

■  0.  1.0.  1,0.  1.0.  1,0.  I  .  O,-- 

0000 1 680 

•00012 

169 

c 

20.  0" 

* 

00001690 

•00012 

170 

ft 

o 

o 

o 

o 

o 

o 

.0,  1 .0,  1. 

0.  1 

.0,  1 .0,  1.0,  1.0,  1.0,  1.0, 

00001700 

•00012 

171 

c 

24.  0" 

00001710 

•00012 

172 

ft 

p 

o 

o 

o 

o 

o 

o 

o 

0j.l 

,0, 1,0, 1,0, 1.0, 1,0, 1.0/,, 

00001720 

•OO0 1  2 

173 

c 

00001730 

•000 1  2 

174 

c 

00001740 

•00012 

175 

c 

00001750 

•  poo?  2 

176 

£ 

TIME  VALUES  FOR  MACH1NLN 

0  OF  NON- 

NPP 

4  1 N  NUCLEAR  SHOP _ 

00001760 

•00012 

177 

REAL  MCH 1 NGf  5,5) 

0  ‘  '0 
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2 


000012 
000012 
0000*1 2 
000012 
000012 
000012 
000012 
000012 
000012 
000012 
0000)2 
000012 
000012 
000012 


000012 

000012 

000012 

000012 


000012 

000012 

000012 

000012 


000012 

000012 

000012 

000012 

900012 

900012 

000012 

000012 


000012 

000012 

000012 

aaoaig. 


000012 
000012 
Jooooi  2 
ppopl? 


000012 

000012 

000012 

000012 


000012 

000012 

000012 


60 

61 


62 

63 

64 

_6£. 


66 

67 

68 

_£4. 


70 

71 

72 

22. 


74 

76 

76 

22. 


78 

79 
60 
61 


86 

87 

88 
-£9. 


90 

91 

92 

-§3_ 


94 

95 

96 

32- 


98 

99 
100 

-101 


102 

103 

104 


COMMON/ STDHRS/TYPCOD( 25)  ,  MACHNO,  ODIO,  HRTEMP 
CHARACTER  TYPCOD, HRTEMP* 1 ,  FABNJT* 4,  FABN*4 
INTEGER  IBT,  IMT,  I  FT,  1WT 


INTEGER  MACHNO,  ODIO,  SHOPJTt  125) ,  SJTDUPt  125) 

4  ,  IABNC 125,  18) 

4  , FLAG1.FLAG2,  INDCEN,  1 NDEND, MPSI ZE,  IWSIZE,  1ARG,  SWFLAG 
— BEAL  PTOTALi BTOTAL.  FTOTAL,  WTOTAL.  MTOTAL _ 


COMMON/ GETOD/ ODFL AG,  F I  TOD ( 25 ) ,  F I TSAMt  25 ) 

INTEGER  ODFLAG, F I  TOD, JTFITt 1 25) , JTSI ZE, FFSI ZE,  F0D1 0,  JT0D(125) 
LOGICAL  FI ISAM, JTSAME1 125) _ 


DATA  SHOPJT/ 125*0/ 
DATA  SJTDUP/ 125*0/ 


EQUIVALENCE  ( FABN,  I  ABN) 

TIME  VALUES  FOR  J_HE_  BENDING  MACHINES 


62  REAL  BNDHRSdO,  3) 

83  DATA  BNDHRS/ 

84  C  NO. r  OF  BENDS  1  2 

35 _ C  0,  5“  THRU  3.  5" _ 


...4.- 


6 


10 


C  4.0"  THRU  6 
4 

C  7.0"  THRU  .  ■  . 


1.0,  1.0,  1 . 0,.*.  l./Ot  .1 . 0,  1.0,  1.0,  1.0,  1.0,  1.0, 

.  0"  1  i’s. 

1.Q,  1.0,  1.0,  CO/.. 1.0,  1.0,  1.0,  1.0,  1.0,  1.0, 


4 


INDICES  TO  FABRICATION  ARRAY 

1  2  3  4  5  6  7 

INTEGER  SETUP, NAVFTG. SLPFLQ, BRANCH. BOSS. WELDO.  SLEEVE. 


BRZF1T, BRZFLG, TEMPL, FLGFLG 
8  9  10  11 

DATA  SETUP,  NAVFTG,  SLPFLG,  BRANCH,  BOSS, WELDO, SLEEVE, 

4  BRZF IT. BRZFLG. TEMPL, FLGFLG/ 1 . 2. 3. 4. 5. 6. 7. 8. 9. 10. 11/ 


TIME  VALUES  FOR  FABRICATION 


00000600 

_00000610 

66000620 

00000630 

00000640 

00000650 


00000660 

00000670 

00000680 

00000690 


00000700 

00000710 

00000720 

00000730 


00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 


00000820 

00000830 

00000840 

00000850 


1.0,  1.0,  1.0,  .1.0,  1.0,  1.0,  1.0,  1.0,  1.0,  1.0/ 


00000860 
00000870 
00000800 
Q00Q0090 
'  00000900 
00000910 
00000920 
00000930 


00000940 

00000950 

00000960 

00000970 


00000980 

00000990 

OOOOtOOO 

00001010 

ooo6T6‘20 

00001030 


30001 2 

--.165  . 

_  ,  PATA  FABHRS/ 

00001050 

300012 

106 

C 

ARG  *  1  2 

3 

4 

5 

6 

7 

e 

9 

10 

1 1 

00001060 

300012 

107 

C 

0.5"  THRU  3.0" 

00001070 

300012 

106 

4  1.0,  1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1 . 0, 

00001080 

300012 

....LP.9  . 

C 

-3*5"  .THRU  5.0" 

00001090 

300012 

110 

4  1.0,  1.0, 

1.0, 

1.0, 

1.0. 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

•1.0, 

00001 100 

300012 

1 1 1 

C 

5.5"  THRU  6.0" 

00001 1 10 

300012 

112 

4  1.0,  1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

00001 120 

300012 

_ LL3 _ 

c 

8,5"  THRU  12,0" 

OOOOl 1 30 

300012 

1  14 

4  1.0,  1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1 . 0, 

1 . 0, 

1 . 0, 

00001  I  40 

000012 

1  15 

c 

12.5"  THRU  16.0" 

00001 150 

300012 

1  16 

4  1.0,  1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1 . 0, 

1 . 0, 

00001 160 

0600)2 _ 

_ _ 1 1 7. _ 

_ 3. 

J325!'  -THRU 

oopoi 1 70 

000012 

118 

4  1.0,  1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

1.0, 

00001 1 80' 

.  ••  . 

3 l 420  01 

>00000 

00012 _ 

00012 
)000J2 
>0001  2 
00012 
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00012 
00012 
00012 
00012 
00001 
000012 
000012 
000012 
000012 
000012 
000012 
000012 
000012 
000012 
000012 
0000““ 
OOO 

ooo 

OOO 

ooo 

000012 


000012 

000012 

000012 

52 

53 

54 

55 

000012 

56 

000012 

57 

oooo)2 

_  .  58 

000012 

59 

*#RUN  *  =  i ONEWtBCD,  NCJGO,  C0RE=23) 

C _ SUB.  STDT1M(  TEMP.  ADI  ■  AON)  -  - STA25P  I  - -OAt  OU1  AJF  STD.  TIME  VALUES 

SUBROUTINE  STDTIMt  TEMP,  ADI ,  ADN)  - - - 1 - 2 - 

c 

C  NF  INTEGER  #  OF  FITTINGS 

0  NTRUEF INTEGER  #  OF  FITTINGS  MINUS  THE  Exei  unEn  fitti 


NTEGER  #  OF  PIPES 
C  NK  INTEGER  #  OF  EXTRUSIONS 

C  NB  INTEGER  #  OF  BENDS 

C  NPPPTS  INTEGER  «  OF  POINTS  ON  THE  PIPE  PIFCE 


C  MAXIND  INTEGER  #  OF  EVENTS  (ENDS  PLUS  CENTERS)  ON  THE  DETAIL - 

C  NFAB  INTEGER  ARRAY-#  OF  POINTS  THIS  PIECE 

C  I  PEC  CHAR.  ARRAY-PIECE  NUMBER  (THE  1 3TH  CHAR.  IS  'S'  IF  THE 
Q_ _ PIECE  IS  ST  AVI 


CHAR.  ARRAY-TYPE  CODE.  IT  IS  'XXX'  IF  THIS  PIECE 
C  IS  NOT  IN  CAPCATS 

C  OD  REAL  NOMINAL  SIZE  OF  THE  MAIN  PIPE  PIECE 

C-gPlfi - I.NT5P5R THE-  NOMINAL  SIZE  OF  THE  MAIN  PIPE  PIECE  X  10.  THEN 


c  ROUNDED.  (THE  INTEGER  VALUE  IS  EASIER  TO  WORK  WITH) 

C  FITOD  INTEGER  ARRAY-THE  NOMINAL  SIZE  OF  THE  FITTING  X  10.  &  ROUNDED 

C  JTOD  INTEGER  ARRAY-THE  NOMINAL  SIZE  OF  THE  JOINT  X  10,  &  ROUNDED. 


NTEGER 

INTEGER 

INTEGER 

INTEGER 


NTEGER 

INTEGER 

CHAR. 


INTEGER 

INTEGER 


1  =W;VJi  i/il  K  ■  i4 1  ^*1= 


C  FALSE  OTHERWISE 

C  JTSAME  LOGICAL  TRUE  IF  .JOINT  O.  D.  IS  SAME  AS  MAIN  PIECE 
C  FALSE  OTHERWISE 


C  FFSIZE 
C  JTSIZE 
C  MAT 


C  TEMP 
C  HRTEMP 
C  SHOPJT 
C  SDUPJT 


C 

C  FLG1 
C  CSSWt 
C  CUSWI 
C  0MSW1 
C  CSVJT1 
C  CUVJTI 
C  0MVJT1 
C  ADI 
C  ADN 
C  BTOTAL 


INTEGER 

INTEGER 

CHAR. 

CHAR. 

REAL 

CHAR. 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

REAL 

REAL 

REAL 


FITTING  SIZE  CATAGORY  (LINE  IN  FAB.  TABLE) 

FITTING  SIZE  CATAGORY  (LINE  IN  WELDING  TABLE) 

ARRAY- MATERIAL  CODE 

ARRAY- DESCRIPT  I  ON  _ 

ARRAY- EXTRA  PIPE  LENGTH  ADDED  ONTO  END  OF  PIPE 
FLAG  INDICATING  WHETHER  DETAIL  IS  ’TEMPLATE  FROM  SHIP 
ARRAY- FLAG  TELLING  TYPE  OF  JOINT  (SEE  EXPLANATION  IN 
ARRAY- ARGUMENT  I 


JOINT  OCCURS. 

=0  IF  THE  FIRST  FLANGE  JOINT  THIS  DETAIL 
=0  IF  THE  FIRST  CARBON  STEEL  SOCKET  WELD  JOINT  THIS  D 
_=0  IF  THE  FIRST  COPPER- NICKEL  SOCKET  WELD  JOINT  THIS 
=0  IF  THE  FIRST  OTHER  METAL  SOCKET  WELD  JOINT  THIS  DE 
*0  IF  THE  FIRST  CARBON  STEEL  BUTTWELD  JOINT  THIS  DETA 
"0  IF  THE  FIRST  COPPER- NICKEL  BUTTWELD  JOINT  THIS  DET 
HE  FIRST  OTHER  METAL  BUTTWELD  JOINT  THIS  DETA  I 
LENGTH  TO  BE  CUT  OFF  END  1  OF  PIPE 
LENGTH  TO  BE  CUT  OFF  END  N  OF  PIPE 
NORMAL  TIME  VALUE  FOR  BENDING 
LUE  FO 


l!TMIi£llM] 


■liliT  —  il  Niafl! 


„  ...  E)’  THE  ARGUMENTS  ARE  VARIABLE 

C  STRING  'A',  STARTING  IN  CHARACTER  'B'  OF  THAT  STRING; 

C  VARIABLE  STRING  'C',  STARTING  IN  CHARACTER  'D'  OF  THAT  STRING: 
C COMPARING  FOR  'E'  CHARACTERS. 


S  0  IF  THEY  MATCH. 

C 

COMMON/ F I T I NG/  OD, NP, NX,  NB, NF,  MAT( 25) ,  IDES( 6, 25) , DETAIL, 


5S - &  _  .  JiULU  5  )  J  NfAB  (.251.,  I  PEC {4 1 

59  8  REV,  GRNO( 4) ,  DWGNO( 5) 


00000010 

.00000020^ 

00000030 

00000040 

00000050 


00000070 

00000080 

00000090 

nnnnn  i  r>r> 


000001 10 
00000120 
00000130 

nnnnn inn 


00000150 
00000160 
00000170 
nnnnn i an 


00000190 
. 0000200 
00000210 


00000 


00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

'0000320 

PROGRAM) 


00000350 
00000360 
ETAIL370 
DETAIL80 
TA1L0390 
I L000400 
AIL00410 
L0000420 
00000430 
00000440 
00000450 
0000460 


00000510 

00000520 

00000530 


00000550 

00000560 

00000570 

0000050Q. 

00000'—''' 


